RosettaCodeData/Task/Compile-time-calculation/Factor/compile-time-calculation.fa...

4 lines
82 B
Factor

: factorial ( n -- n! ) [1,b] product ;
CONSTANT: 10-factorial $[ 10 factorial ]