RosettaCodeData/Task/Factorial/Red/factorial-2.red
2023-07-01 13:44:08 -04:00

3 lines
144 B
Text

fac: func [n][either n > 1 [n * fac n - 1][1]]
fac: func [n][any [if n = 0 [1] n * fac n - 1]]
fac: func [n][do pick [[n * fac n - 1] 1] n > 1]