(defn find-cells [^doubles a cell-kind]
    (persistent! (areduce ^doubles a i ret (transient {})
                          (if (= (aget ^doubles a i) cell-kind) (assoc! ret i cell-kind) ret))))
 
(comment
(defn find-cells [a cell-kind]
  (let [dngn (vec a)]
  	  (into {} (for [x (keep-indexed #(if (= %2 cell-kind) %1) dngn)] [x cell-kind])))))
 
(defn find-goals [^doubles a]
  (find-cells a GOAL))
 
(defn find-walls [^doubles a]
    (persistent! (areduce ^doubles a i ret (transient {})
                          (if (>= (aget ^doubles a i) wall) (assoc! ret i wall) ret))))
 
(comment
(defn find-walls [a]
  (let [dngn (vec a)]
  	  (into {} (for [x (keep-indexed #(if (>= %2 wall) %1) dngn)] [x wall])))))
 
(defn find-floors [^doubles a]
  (find-cells a floor))
 
(defn find-lowest [^doubles a]
  (let [low-val (apply min (vec a))]
    (find-cells a low-val)))
 
(defn find-monsters [m]
    (into {} (for [mp (map #(:pos @%) m)] [mp wall])))
 
(def open (atom {}))
 
(defn dijkstra
  ([a]
     (do (dijkstra a (find-walls a) (find-lowest a))))
  ([a ent]
     (do (dijkstra a (dissoc (merge (find-walls a) (find-monsters @monsters)) (:pos @ent)) (find-lowest a))))
  ([a closed open-cells]
     (reset! open open-cells)
     (while (not (empty? @open))
     	     (let [newly-open (atom {})]
     	     (doall (for [[i v] @open]
    			  (let [n (- i wide)
    			        s (+ i wide)
    			        w (- i 1 )
    			        e (+ i 1 )
    			        ]
    			        (if (or (closed n) (@open n) (>= (inc v) (hiphip/aget a n))) nil (do (hiphip/aset a n (inc v)) (swap! newly-open assoc n (inc v))))
    			        (if (or (closed s) (@open s) (>= (inc v) (hiphip/aget a s))) nil (do (hiphip/aset a s (inc v)) (swap! newly-open assoc s (inc v))))
    			        (if (or (closed w) (@open w) (>= (inc v) (hiphip/aget a w))) nil (do (hiphip/aset a w (inc v)) (swap! newly-open assoc w (inc v))))
    			        (if (or (closed e) (@open e) (>= (inc v) (hiphip/aget a e))) nil (do (hiphip/aset a e (inc v)) (swap! newly-open assoc e (inc v))))
     	     	     	     )))
     	     (reset! open @newly-open)))
       a
       ))
 

KGRlZm4gZmluZC1jZWxscyBbXmRvdWJsZXMgYSBjZWxsLWtpbmRdCiAgICAocGVyc2lzdGVudCEgKGFyZWR1Y2UgXmRvdWJsZXMgYSBpIHJldCAodHJhbnNpZW50IHt9KQogICAgICAgICAgICAgICAgICAgICAgICAgIChpZiAoPSAoYWdldCBeZG91YmxlcyBhIGkpIGNlbGwta2luZCkgKGFzc29jISByZXQgaSBjZWxsLWtpbmQpIHJldCkpKSkKCihjb21tZW50CihkZWZuIGZpbmQtY2VsbHMgW2EgY2VsbC1raW5kXQogIChsZXQgW2RuZ24gKHZlYyBhKV0KICAJICAoaW50byB7fSAoZm9yIFt4IChrZWVwLWluZGV4ZWQgIyhpZiAoPSAlMiBjZWxsLWtpbmQpICUxKSBkbmduKV0gW3ggY2VsbC1raW5kXSkpKSkpCgooZGVmbiBmaW5kLWdvYWxzIFteZG91YmxlcyBhXQogIChmaW5kLWNlbGxzIGEgR09BTCkpCgooZGVmbiBmaW5kLXdhbGxzIFteZG91YmxlcyBhXQogICAgKHBlcnNpc3RlbnQhIChhcmVkdWNlIF5kb3VibGVzIGEgaSByZXQgKHRyYW5zaWVudCB7fSkKICAgICAgICAgICAgICAgICAgICAgICAgICAoaWYgKD49IChhZ2V0IF5kb3VibGVzIGEgaSkgd2FsbCkgKGFzc29jISByZXQgaSB3YWxsKSByZXQpKSkpCgooY29tbWVudAooZGVmbiBmaW5kLXdhbGxzIFthXQogIChsZXQgW2RuZ24gKHZlYyBhKV0KICAJICAoaW50byB7fSAoZm9yIFt4IChrZWVwLWluZGV4ZWQgIyhpZiAoPj0gJTIgd2FsbCkgJTEpIGRuZ24pXSBbeCB3YWxsXSkpKSkpCgooZGVmbiBmaW5kLWZsb29ycyBbXmRvdWJsZXMgYV0KICAoZmluZC1jZWxscyBhIGZsb29yKSkKCihkZWZuIGZpbmQtbG93ZXN0IFteZG91YmxlcyBhXQogIChsZXQgW2xvdy12YWwgKGFwcGx5IG1pbiAodmVjIGEpKV0KICAgIChmaW5kLWNlbGxzIGEgbG93LXZhbCkpKQoKKGRlZm4gZmluZC1tb25zdGVycyBbbV0KICAgIChpbnRvIHt9IChmb3IgW21wIChtYXAgIyg6cG9zIEAlKSBtKV0gW21wIHdhbGxdKSkpCgooZGVmIG9wZW4gKGF0b20ge30pKQoKKGRlZm4gZGlqa3N0cmEKICAoW2FdCiAgICAgKGRvIChkaWprc3RyYSBhIChmaW5kLXdhbGxzIGEpIChmaW5kLWxvd2VzdCBhKSkpKQogIChbYSBlbnRdCiAgICAgKGRvIChkaWprc3RyYSBhIChkaXNzb2MgKG1lcmdlIChmaW5kLXdhbGxzIGEpIChmaW5kLW1vbnN0ZXJzIEBtb25zdGVycykpICg6cG9zIEBlbnQpKSAoZmluZC1sb3dlc3QgYSkpKSkKICAoW2EgY2xvc2VkIG9wZW4tY2VsbHNdCiAgICAgKHJlc2V0ISBvcGVuIG9wZW4tY2VsbHMpCiAgICAgKHdoaWxlIChub3QgKGVtcHR5PyBAb3BlbikpCiAgICAgCSAgICAgKGxldCBbbmV3bHktb3BlbiAoYXRvbSB7fSldCiAgICAgCSAgICAgKGRvYWxsIChmb3IgW1tpIHZdIEBvcGVuXQogICAgCQkJICAobGV0IFtuICgtIGkgd2lkZSkKICAgIAkJCSAgICAgICAgcyAoKyBpIHdpZGUpCiAgICAJCQkgICAgICAgIHcgKC0gaSAxICkKICAgIAkJCSAgICAgICAgZSAoKyBpIDEgKQogICAgCQkJICAgICAgICBdCiAgICAJCQkgICAgICAgIChpZiAob3IgKGNsb3NlZCBuKSAoQG9wZW4gbikgKD49IChpbmMgdikgKGhpcGhpcC9hZ2V0IGEgbikpKSBuaWwgKGRvIChoaXBoaXAvYXNldCBhIG4gKGluYyB2KSkgKHN3YXAhIG5ld2x5LW9wZW4gYXNzb2MgbiAoaW5jIHYpKSkpCiAgICAJCQkgICAgICAgIChpZiAob3IgKGNsb3NlZCBzKSAoQG9wZW4gcykgKD49IChpbmMgdikgKGhpcGhpcC9hZ2V0IGEgcykpKSBuaWwgKGRvIChoaXBoaXAvYXNldCBhIHMgKGluYyB2KSkgKHN3YXAhIG5ld2x5LW9wZW4gYXNzb2MgcyAoaW5jIHYpKSkpCiAgICAJCQkgICAgICAgIChpZiAob3IgKGNsb3NlZCB3KSAoQG9wZW4gdykgKD49IChpbmMgdikgKGhpcGhpcC9hZ2V0IGEgdykpKSBuaWwgKGRvIChoaXBoaXAvYXNldCBhIHcgKGluYyB2KSkgKHN3YXAhIG5ld2x5LW9wZW4gYXNzb2MgdyAoaW5jIHYpKSkpCiAgICAJCQkgICAgICAgIChpZiAob3IgKGNsb3NlZCBlKSAoQG9wZW4gZSkgKD49IChpbmMgdikgKGhpcGhpcC9hZ2V0IGEgZSkpKSBuaWwgKGRvIChoaXBoaXAvYXNldCBhIGUgKGluYyB2KSkgKHN3YXAhIG5ld2x5LW9wZW4gYXNzb2MgZSAoaW5jIHYpKSkpCiAgICAgCSAgICAgCSAgICAgCSAgICAgKSkpCiAgICAgCSAgICAgKHJlc2V0ISBvcGVuIEBuZXdseS1vcGVuKSkpCiAgICAgICBhCiAgICAgICApKQo=