7 lines
94 B
Perl
7 lines
94 B
Perl
|
use List::Util qw(reduce);
|
||
|
|
sub factorial
|
||
|
|
{
|
||
|
|
my $n = shift;
|
||
|
|
reduce { $a * $b } 1, 1 .. $n
|
||
|
|
}
|