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