Clojurize https://github.com/emmalarkins/word-fragmentizer

word-fragmentizer.clj

; this isn't to throw shade at the dev; i just felt java had a lot of incidental complexity and wanted to understand what the code does
(defn fragmentize-chunk [chunk]
  (set (map #(take % chunk) [1 2 3])))

(defn fragmentize-word [word]
  (->> (range (count word))
       (map #(drop % word))
       (mapcat fragmentize-chunk)
       (map clojure.string/join)))

(defn fragmentize [words]
  (->> words
       (map clojure.string/lower-case)
       (mapcat fragmentize-word)
       frequencies))