RosettaCodeData/Task/Y-combinator/PicoLisp/y-combinator-1.l

4 lines
83 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
(de Y (F)
(let X (curry (F) (Y) (F (curry (Y) @ (pass (Y Y)))))
(X X) ) )