Skip to content

Instantly share code, notes, and snippets.

@gfredericks

gfredericks/w00t.clj

Created May 11, 2011 20:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gfredericks/967259 to your computer and use it in GitHub Desktop.
Save gfredericks/967259 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
w00t.clj
((comp
(partial apply partial)
(juxt (comp first list) (comp first list)))
(comp
(partial apply apply)
(juxt
(comp
(partial apply apply)
(juxt
(comp
(partial apply hash-map)
(juxt
(constantly true)
(constantly (constantly 1))
(constantly false)
(comp
(partial apply constantly)
(juxt
(comp
(partial apply *)
(juxt
(comp last list)
(comp
(partial apply apply)
(juxt
(comp first list)
(juxt
(comp first list)
(comp
(partial apply dec)
(juxt (comp last list))))))))))))
(juxt (comp (partial apply zero?) (juxt (comp last list))))))
(constantly ()))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment