3 lines
60 B
Text
3 lines
60 B
Text
: fact dup 2 < if else dup 1 - fact * then ;
|
|
5 fact
|
|
120
|
: fact dup 2 < if else dup 1 - fact * then ;
|
|
5 fact
|
|
120
|