Help for this page
sub max { my( $i, @l ) = @_; my $j = @l ? max( @l ) : $i; return $i > $j ? $i : $j; }
sub max { $_[ 0 ] < $_[ -1 ] ? shift : pop while @_ > 1; return @_; }
www.com | www.net | www.org
No recent polls found