RosettaCodeData/Task/Factorial/Symsyn/factorial.symsyn

20 lines
153 B
Plaintext

fact
if n < 1
return
endif
* n fn fn
- n
call fact
return
start
if i < 20
1 fn
i n
call fact
fn []
+ i
goif
endif