Re^5: Finding the max()/min()

[elusion]

in reply to Re^4: Finding the max()/min()
in thread Finding the max()/min()

Good catch; I forgot the edge case. Here's the fix:

sub max {
    my $max = shift;
    return $max if not @_;
    my $next = shift;
    unshift @_, $max > $next ? $max : $next;
    goto &max;
}