2 lines
97 B
Text
2 lines
97 B
Text
: <factorial> dup 1 = if; dup 1- <factorial> * ;
|
|
: factorial dup 0 = [ 1+ ] [ <factorial> ] if ;
|