Skip to content

Instantly share code, notes, and snippets.

@MichaelDrogalis

MichaelDrogalis/gist:2440572

Created April 22, 2012 00:49
Show Gist options
  • Save MichaelDrogalis/2440572 to your computer and use it in GitHub Desktop.
Save MichaelDrogalis/2440572 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(fn [f coll]
(letfn
[(pair-to-map [pair]
(hash-map (first pair) (second pair)))]
(apply merge-with concat
(map pair-to-map
(partition 2
(interleave (map f coll) (map vector coll)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment