mirror of
https://github.com/Noratrieb/GRSBPL.git
synced 2026-01-14 11:45:02 +01:00
9 lines
No EOL
146 B
Text
9 lines
No EOL
146 B
Text
10 factorial 1 goto exit
|
|
|
|
function factorial 1
|
|
dup not goto isZero
|
|
pop dup 1 - factorial * return
|
|
:isZero
|
|
1 pop return
|
|
|
|
:exit pop dup nout |