&maximum
sub maximum {
my ( $maximum_so_far ) = shift @_;
foreach my $current (@_) {
if ($current > $maximum_so_far) {
$maximum_so_far = $current;
}
}
$maximum_so_far;
}
- What happens with &maximum() (no args) ?