6 lines
72 B
Perl
6 lines
72 B
Perl
|
sub factorial
|
||
|
|
{
|
||
|
|
my $n = shift;
|
||
|
|
($n == 0)? 1 : $n*factorial($n-1);
|
||
|
|
}
|