RosettaCodeData/Task/Factorial/Factor/factorial.factor
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
71 B
Factor

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