The problem: Passed to your function is a list of numbers, and the function should return a list of those number's factorials. (factorial of 5 is 5*4*3*2*1).

Example:

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

Again, this is meant for beggining to intermidately skilled programmers, but if you are better than that, you can see if you can beat my humble (and probably futile) atempt at the golf. (Click readmore to see my code).

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