Skip to content

Instantly share code, notes, and snippets.

@nitin-motiani

nitin-motiani/y-comb.lisp

Created April 13, 2012 19:56
  • Star 5 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Embed
What would you like to do?
Learn more about clone URLs
Download ZIP
Y combinator in common lisp
Raw
y-comb.lisp
(setf Y (lambda (g)
(funcall (lambda (f) (lambda (n) (funcall (funcall g (funcall f f)) n)))
(lambda (f) (lambda (n) (funcall (funcall g (funcall f f) n)))))))
(setf factorial (funcall Y
(lambda (f)
(lambda (n)
(if (< n 2) n
(* n (funcall f (- n 1))))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment