RosettaCodeData/Task/Factorial/Axe/factorial-1.axe
2023-07-01 13:44:08 -04:00

7 lines
51 B
Text

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