RosettaCodeData/Task/Factorial/Min/factorial.min

2 lines
51 B
Plaintext

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