Find the max number of consecutive double letters in an English words

count-double-letters.clj

(defn count-consecutive-doubles [word]
  {word 
  (->> word
       (partition-by identity)
       (map count)
       (filter #(>= % 2))
       count
       )})

(with-open [rdr (clojure.java.io/reader  "/home/tzach/Downloads/words.txt")]
        (->> rdr
             line-seq
             (map count-consecutive-doubles)
             (into {})
             (filter #(-> % val (>= 4)))))

;; words.txt from https://github.com/dwyl/english-words