Глава 7. Факториал :: Готовая программа

Готовая программа
	Глава 7. Факториал

Готовая программа

Итеративная версия

examples/perl/factorial-iterative.plPerl
#!/usr/bin/perl

use warnings;

my $n=shift;
my $f=1;

for($i=2; $i<=$n; $i++)
{
	$f*=$i;
}

print "$f\n";

Рекурсивная версия

Обычный вариант

examples/perl/factorial-recursive.plPerl
#!/usr/bin/perl

use warnings;

sub factorial
{
	my $n=shift;
	return 1 unless $n;
	return $n*factorial($n-1);
}

print factorial(shift @ARGV), "\n";

Кратчайший вариант

examples/perl/factorial-recursive-shortest.plPerl
#!/usr/bin/perl

use warnings;

sub factorial
{
	return $_[0]? $_[0]*factorial($_[0]-1): 1;
}

print factorial(shift @ARGV), "\n";


Идеи реализации		Глава 8. Быстрое возведение в степень