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

1 line
74 B
Text

Y: closure [g] [do func [f] [f :f] closure [f] [g func [x] [do f :f :x]]]