15 lines
147 B
Perl
Executable file
15 lines
147 B
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
sub max{
|
|
my $max_actuel = shift @_;
|
|
|
|
foreach (@_)
|
|
{
|
|
if ($_ > $max_actuel)
|
|
{
|
|
$max_actuel = $_;
|
|
}
|
|
}
|
|
$max_actuel;
|
|
}
|
|
|