5 lines
113 B
Perl
5 lines
113 B
Perl
|
$factorial = 1;
|
||
|
|
for (my $loop_index = 1; $loop_index <= 6; $loop_index++) {
|
||
|
|
$factorial *= $loop_index;
|
||
|
|
}
|