RosettaCodeData/Task/Y-combinator/Rebol/y-combinator-2.rebol
2026-04-30 12:34:36 -04:00

2 lines
79 B
Text

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