Factorial: Difference between revisions
Content deleted Content added
bash |
Perl |
||
Line 338: | Line 338: | ||
end; |
end; |
||
</pascal> |
</pascal> |
||
=={{header|Perl}}== |
|||
=== Iterative === |
|||
<perl> |
|||
sub factorial |
|||
{ |
|||
my $n = shift; |
|||
my $result = 1; |
|||
for (my $i = 1; $i <= $n; ++$i) |
|||
{ |
|||
$result *= $i; |
|||
}; |
|||
$result; |
|||
} |
|||
</perl> |
|||
=== Recursive === |
|||
<perl> |
|||
sub factorial |
|||
{ |
|||
my $n = shift; |
|||
($n == 0)? 1 : $n*factorial($n-1); |
|||
} |
|||
</perl> |
|||
=={{header|Python}}== |
=={{header|Python}}== |