3 lines
55 B
Text
3 lines
55 B
Text
|
: factorial \ n -- n!
|
||
|
|
1 swap ' n:* 1 rot loop ;
|