Skip to content

Instantly share code, notes, and snippets.

@arifian

arifian/group_red.clj

Created April 30, 2019 10:59
Show Gist options
  • Save arifian/fe3930cb342411f22a842d3e3e077cb7 to your computer and use it in GitHub Desktop.
Save arifian/fe3930cb342411f22a842d3e3e077cb7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
group_red.clj
(defn group-by-red [f coll]
(r/fold 2048
(partial merge-with into)
(fn [groups a]
(let [k (f a)]
(assoc groups k (conj (get groups k []) a))))
coll))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment