RosettaCodeData/Task/Y-combinator/Scheme/y-combinator-3.ss

4 lines
65 B
Scheme
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
(define Y2r
(lambda (f)
(lambda a (apply (f (Y2r f)) a))))