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