17 lines
296 B
OCaml
17 lines
296 B
OCaml
MCSKIP "WITH" NL
|
|
"" Factorial - iterative
|
|
MCSKIP MT,<>
|
|
MCINS %.
|
|
MCDEF FACTORIAL WITHS ()
|
|
AS <MCSET T1=%A1.
|
|
MCSET T2=1
|
|
MCSET T3=1
|
|
%L1.MCGO L2 IF T3 GR T1
|
|
MCSET T2=T2*T3
|
|
MCSET T3=T3+1
|
|
MCGO L1
|
|
%L2.%T2.>
|
|
fact(1) is FACTORIAL(1)
|
|
fact(2) is FACTORIAL(2)
|
|
fact(3) is FACTORIAL(3)
|
|
fact(4) is FACTORIAL(4)
|