RosettaCodeData/Task/Factorial/K/factorial-2.k

4 lines
42 B
Plaintext

factr:{:[x>1;x*_f x-1;1]}
factr 6
720