Skip to content

Instantly share code, notes, and snippets.

@ayato-p

ayato-p/Y-combinator.scm

Last active December 14, 2015 22:19
Show Gist options
  • Save ayato-p/5157527 to your computer and use it in GitHub Desktop.
Save ayato-p/5157527 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Y-combinator.scm
(define Y
(lambda (le)
((lambda (f) (f f))
(lambda (f)
(le (lambda (x) ((f f) x)))))))
((Y (lambda (length)
(lambda (l)
(cond
((null? l) 0)
(else (add1 (length (cdr l))))))))
'(apple))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment