so I solved part 1 of day 2 but it looks kind of hacky to me. Any suggestions?

(def data
  (->> (slurp "resources/y2018.d02.txt")
       (str/split-lines)))

(defn double-letter? [s]
  (some #(= 2 %) (vals (frequencies s))))

(defn num-of-doubles [coll]
  (get (frequencies (map double-letter? coll)) true))

(defn triple-letter? [s]
  (some #(= 3 %) (vals (frequencies s))))

(defn num-of-triples [coll]
  (get (frequencies (map triple-letter? coll)) true))

(defn part1 [coll]
  (* (num-of-doubles coll) (num-of-triples coll)))

(part1 data)
;; => 6200

and I'm struggling with part 2 again. I remember doing this simple spellchecker tutorial: https://www.bernhardwenzel.com/articles/clojure-spellchecker/ so was thinking this "levenshtein distance" could get me there. It's not working though as even the first string is saying it has a match with a 0 distance. But that isn't right. But now I can't get my brain off this strategy! If it continues to elude me I'll check out @potetm's video and other people's solutions. I'm thinking part 2's are going to be a bit outside my current ability but not sure when to call it and try to learn from others or keep fighting it. I don't know if spending days on one solution is fruitful at my level.