aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Averages-Mode/Clojure/averages-mode-2.clj

3 lines
96 B
Clojure
Raw Permalink Normal View History

September Morn Update
2019-09-12 10:33:56 -07:00
(defn modes [coll]
(->> coll frequencies (sort-by val >) (partition-by val) first (map key)))
Reference in a new issue Copy permalink