Help for this page

Select Code to Download


  1. or download this
    sub max {
        my ($x, @xs) = @_;
        @xs ? do { my $m = maxdo(@xs); ($x, $m)[$x < $m] } : $x;
    }