Skip to content

Instantly share code, notes, and snippets.

@lenst

lenst/Y.clj

Created April 17, 2009 18:52
Show Gist options
  • Save lenst/97191 to your computer and use it in GitHub Desktop.
Save lenst/97191 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Y.clj
(defn Y [r] (#(% %) #(r (fn [x] ((% %) x)))))
(defn fact-gen [fact-in]
(fn [n]
(if (= n 0) 1
(* n (fact-in (- n 1))))))
((Y fact-gen) 7)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment