Skip to content

Instantly share code, notes, and snippets.

@rxacevedo

rxacevedo/quine.clj

Last active August 29, 2015 14:01
Show Gist options
  • Save rxacevedo/c4e1e67dcd2ce4b3ddc1 to your computer and use it in GitHub Desktop.
Save rxacevedo/c4e1e67dcd2ce4b3ddc1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
quine.clj
(
(fn [x] (list x (list (quote quote) x))) ;; yields (x (quote x))
(quote (fn [x] (list x (list (quote quote) x)))) ;; yields (fn [x] (list x (list (quote quote) x)))
) ;; so the whole thing, via substituion, yields ((fn [x] (list x (list (quote quote) x))) (quote (fn [x] (list x (list (quote quote) x)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment