aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Y-combinator/Scheme/y-combinator-2.ss

4 lines
114 B
Scheme
Raw Permalink Normal View History

September Morn Update
2019-09-12 10:33:56 -07:00
(define Yr ; (Y f) == (f (lambda a (apply (Y f) a)))
(lambda (f)
(f (lambda a (apply (Yr f) a)))))
Reference in a new issue Copy permalink