Select Code to Download

@a = factorial(5); $a[0] = 120<br>
@a = factorial(5,3,10); $a[0..2] = (120,6,3628800)

sub f {
push@a,eval join'*',1..$_ for@_;@a
}