RosettaCodeData/Task/Factorial/Clay/factorial-1.clay
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

14 lines
232 B
Text

factorialRec(n) {
if (n == 0) return 1;
return n * factorialRec(n - 1);
}
factorialIter(n) {
for (i in range(1, n))
n *= i;
return n;
}
factorialFold(n) {
return reduce(multiply, 1, range(1, n + 1));
}