RosettaCodeData/Task/Factorial/Maxima/factorial-3.maxima

2 lines
56 B
Plaintext

fact2(n) := block([r: 1], for i thru n do r: r * i, r)$