RosettaCodeData/Task/Y-combinator/REBOL/y-combinator-2.rebol
Ingy döt Net 68f8f3e56b all tasks
2013-04-11 01:07:29 -07:00

2 lines
79 B
Text

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