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

11 lines
224 B
Text

function fact(n int in) returns (bigint)
if (n < 0)
writestdout("No negative numbers");
return (0);
end
ans bigint = 1;
for (i int from 1 to n)
ans *= i;
end
return (ans);
end