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