Рекурсивный алгоритм вычисления факториала на перле.
#!/usr/bin/perl
# рекурсивный метод вычисления факториала
if(@ARGV > 0){
print recFactorial($ARGV[0]) . "\n";
}
else{
print "usage factorial.pl number\n";
}
sub recFactorial($){
my $i = $_[0];
if ($i > 1){
$result = $i * recFactorial($i-1);
}
else{
$result = 1;
}
return $result;
}