Факториал в Perl

Пример для версий Perl 5.12.1

Используется функция reduce из модуля List::Util. Дополнительная единица в начале списка добавлена для того, чтобы пример работал даже тогда, когда список 1..$n пуст, т.е. при $n=0.

use List::Util qw(reduce);
sub fact {
  my $n = shift;
  reduce { $a * $b } 1, 1 .. $n
}
 
foreach my $i (0..16) {
    print "$i! = ", fact($i), "\n";
}

Факториал в Perl

Комментарии