| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/nginx/html/JimMartinson/_Archive/CST1615/ExampleFiles/Lab04/ |
Upload File : |
$maximum = &max(3, 5, 10, 4, 6);
print "\$maximum is $maximum.\n";
$maximum2 = &max(99, 55, $maximum);
print "\$maximum2 is $maximum2.\n";
$maximum3 = &max($maximum);
print "\$maximum3 is $maximum3.\n";
$maximum4 = &max();
print "\$maximum4 is $maximum4.\n";
$maximum4 = &max;
print "\$maximum4 is $maximum4.\n";
sub max {
my($max_so_far) = shift @_; # the first one is the largest yet seen
foreach (@_) { # look at the remaining arguments
if ($_ > $max_so_far) { # could this one be bigger yet?
$max_so_far = $_;
}
}
$max_so_far;
}