Skip to content

Instantly share code, notes, and snippets.

@nathanmarz

nathanmarz/gist:450501

Created June 23, 2010 20:30
Show Gist options
  • Save nathanmarz/450501 to your computer and use it in GitHub Desktop.
Save nathanmarz/450501 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(w/defbufferop sum-stats [tuples]
[(rest (reduce (fn [[id-old & vals-old :as old] [id & vals]]
(if (= id-old id)
old
(cons id (map + vals-old vals))))
tuples))]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment