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

3 lines
83 B
Text

(de Y (F)
(let X (curry (F) (Y) (F (curry (Y) @ (pass (Y Y)))))
(X X) ) )