Algorithmes/Recherche du maximum/Méthode perl 1

Code source Perl

sub findmax() {

        return 0 if $#_ == -1;

        return $_[0] if $#_ == 0;

        my $curr_max = $_[0];
        foreach (@_) {
                $curr_max = $_ if $_ > $curr_max;
        }
        return $curr_max;
}

Un exemple simple d'utilisation de cette sous-routine

print &findmax(qw /1 5 3 199 2/);

La sortie devrait être : 199