Skip to content

Instantly share code, notes, and snippets.

@eugeneia

eugeneia/Y

Created November 10, 2017 13:01
Show Gist options
  • Save eugeneia/ddee65d54f1504521de080dde19ad2a6 to your computer and use it in GitHub Desktop.
Save eugeneia/ddee65d54f1504521de080dde19ad2a6 to your computer and use it in GitHub Desktop.
Download ZIP
Y combinator
Raw
Y
;;;; See http://mvanier.livejournal.com/2897.html
(define Y
(lambda (f)
((lambda (x) (f (lambda (y) ((x x) y))))
(lambda (x) (f (lambda (y) ((x x) y)))))))
;;;; Equivalent:
(define Y
(lambda (f)
((lambda (x) (x x))
(lambda (x) (f (lambda (y) ((x x) y)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment