(ns doublets.solver
  (:require [clojure.java.io :as io]
            [clojure.edn :as edn]
            [clojure.data.priority-map :refer :all]))

;(def words (-> "words.edn"
 ;              (io/resource)
 ;              (slurp)
 ;              (read-string)))

(def words [ "door"
  "boor"
  "cook"
  "book"
  "look"
  "lock"])

(defn dist [word1 word2 & {:keys [n] :or {n 0}}]
  (let [len1 (count word1)
        len2 (count word2)]
    (if (= 0 len1) n
      (if (= 0 len2) n
        (if (or (= 1 len1) (= 1 len2))
          (if (= word1 word2)
            n
            (+ n 1))
          (let [c1 (subs word1 0 1)
                c2 (subs word2 0 1)
                r1 (subs word1 1)
                r2 (subs word2 1)]
            (if (= c1 c2)
              (dist r1 r2 :n n)
              (dist r1 r2 :n (+ n 1)))))))))


(defn futureCost [goal]
  (let [cand (filter #(= (count %) (count goal)) words)]
  (priority-map (map #(dist % goal) cand))))



(defn doublets [word1 word2]
    "do me"
    )

(defn -main []

  (print (futureCost "lock") "\n"))