RosettaCodeData/Task/Y-combinator/REBOL/y-combinator-2.rebol
2023-07-01 13:44:08 -04:00

2 lines
79 B
Text

fact*: closure [h] [func [n] [either n <= 1 [1] [n * h n - 1]]]
fact: Y :fact*