2 lines
45 B
Forth
2 lines
45 B
Forth
|
: fac ( n -- n! ) 1 swap 1+ 1 ?do i * loop ;
|
|
|
: fac ( n -- n! ) 1 swap 1+ 1 ?do i * loop ;
|