RosettaCodeData/Task/Factorial/Nial/factorial-1.nial

2 lines
51 B
Plaintext

fact is recur [ 0 =, 1 first, pass, product, -1 +]