CPU: Perl, Fall 2005 Perl, Week 3: More Arrays, Context, Subroutines, Lexical Variables #52

&maximum

sub maximum {
    my ( $maximum_so_far ) = shift @_;
    foreach my $current (@_) {
        if ($current > $maximum_so_far) {
            $maximum_so_far = $current;
        }
    }
    $maximum_so_far;
}
Copyright © 2005 Ian Langworth