Программа вычисления факториала на perl

Категория: Perl

2011-08-23 23:15:07

code: #perl

#!/usr/bin/perl
 
use warnings;
 
$n=shift;
 
$f=1;
 
for($i=2; $i<=$n; $i++)
{
    $f*=$i;
}
 
print "$f\n";

или так:

code: #perl

#!/usr/bin/perl
use warnings;
 
sub factorial
{
    return $_[0]? $_[0]*factorial($_[0]-1): 1;
}
 
print factorial(shift @ARGV), "\n";

Поделиться:

Sample Code