RosettaCodeData/Task/Averages-Mode/Clojure/averages-mode-2.clj

3 lines
96 B
Clojure

(defn modes [coll]
(->> coll frequencies (sort-by val >) (partition-by val) first (map key)))