14 lines
158 B
Perl
14 lines
158 B
Perl
|
sub fact{
|
||
|
|
my $n = @_[0];
|
||
|
|
if($n < 2){
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
else{
|
||
|
|
return $n * fact($n-1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
for($i=0; $i<10000; $i++){
|
||
|
|
&fact(100);
|
||
|
|
}
|