2 lines
95 B
Text
2 lines
95 B
Text
factorial[n_Integer] :=
|
|
Block[{i, result = 1}, For[i = 1, i <= n, ++i, result *= i]; result]
|