RosettaCodeData/Task/Factorial/Joy/factorial.joy

2 lines
62 B
Plaintext

DEFINE factorial == [0 =] [pop 1] [dup 1 - factorial *] ifte.