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.

17 lines
154 B

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