5 lines
39 B
Forth
5 lines
39 B
Forth
|
: FACTORIAL
|
||
|
|
1 SWAP
|
||
|
|
1 + 1 DO
|
||
|
|
I * LOOP ;
|