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

1 line
51 B
Text

((dup 0 ==) 'succ (dup pred) '* linrec) :factorial