RosettaCodeData/Task/Factorial/Factor/factorial.factor
2023-07-01 13:44:08 -04:00

3 lines
71 B
Factor

USING: math.ranges sequences ;
: factorial ( n -- n ) [1,b] product ;