5 lines
118 B
Text
5 lines
118 B
Text
[ dup 1 > [ dup 1 - factorial * ] when ] 'factorial ;
|
|
|
|
( test )
|
|
4 factorial . ( => 24 )
|
|
10 factorial . ( => 3628800 )
|