mjg123

(ns dijkstra.core)

(def initial-node {:score Integer/MAX_VALUE :route [] :dead? false})

(defn make-initial-state [edges start-node]
  (-> (zipmap (keys edges) (repeat initial-node))
      (assoc-in [start-node :score] 0)
      (assoc-in [start-node :route] [start-node])))

(defn live-nodes [state]