mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Factorial/Comal/factorial.comal

8 lines
121 B
Plaintext
Raw Permalink Blame History

PROC Recursive(n) CLOSED
r:=1
IF n>1 THEN
r:=n*Recursive(n-1)
ENDIF
RETURN r
ENDPROC Recursive
Reference in New Issue View Git Blame Copy Permalink