freq-char

gistfile1.clj

(defn freq-of-cha
  [str]
  (->> str
       frequencies
       (sort-by val >)
       first
       second
       (vector str)))

 (defn answer
   [col]
   (->> col
        (map freq-of-cha)
        (sort-by second >)
        ffirst))

 (answer ["abbcccc" "ddssbbbsssss" "uuuuuuuuuuuuuu"   "coolololo"])]