RosettaCodeData/Task/Factorial/XPL0/factorial.xpl0
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

11 lines
305 B
Text

func FactIter(N); \Factorial of N using iterative method
int N; \range: 0..12
int F, I;
[F:= 1;
for I:= 2 to N do F:= F*I;
return F;
];
func FactRecur(N); \Factorial of N using recursive method
int N; \range: 0..12
return if N<2 then 1 else N*FactRecur(N-1);