5 lines
127 B
Forth
5 lines
127 B
Forth
|
20 seq map(#[ seq reduce(#*) ]) Constant new: ALLFACTS
|
||
|
|
: fact(n) n ifZero: [ 1 ] else: [ ALLFACTS at(n) ] ;
|
||
|
|
|
||
|
|
ALLFACTS println
|