http://qs321.pair.com?node_id=415928


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; }