Help for this page

Select Code to Download


  1. or download this
    sub max {
        my ($max, @vars) = @_;
        for (@vars) {
    ...
        }
        return $max;
    }
    
  2. or download this
    sub max {
        my ($max, $next, @vars) = @_;
        return $max if not $next;
        return max( $max > $next ? $max : $next, @vars );
    }