RosettaCodeData/Task/Factorial/KonsolScript/factorial.konsol
2023-07-01 13:44:08 -04: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;
}