RosettaCodeData/Task/Factorial/KonsolScript/factorial.konsol
2013-04-11 11:14:19 -07:00

13 lines
209 B
Text

function factorial(Number n):Number {
Var:Number ret;
if (n >= 0) {
ret = 1;
Var:Number i = 1;
for (i = 1; i <= n; i++) {
ret = ret * i;
}
} else {
ret = 0;
}
return ret;
}