RosettaCodeData/Task/Factorial/Axe/factorial-1.axe
2016-12-05 23:44:36 +01:00

7 lines
51 B
Text

Lbl FACT
1→R
For(I,1,r₁)
R*I→R
End
R
Return