You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

16 lines
147 B

#!/usr/bin/perl -w
sub max{
my $max_actuel = shift @_;
foreach (@_)
{
if ($_ > $max_actuel)
{
$max_actuel = $_;
}
}
$max_actuel;
}