;; problem code
 
(defn local-dijkstra
  ([a center radius]
     (local-dijkstra a (find-walls a) {center 0} center radius))
  ([a ent center radius]
     (local-dijkstra a (dissoc (merge (find-walls a) (find-monsters @monsters)) (:pos @ent)) {center 0} center radius))
  ([a closed open-cells center radius]
     (loop [open open-cells result (transient {}) ctr 0]
 
       (if (and (seq open) (< ctr radius))
         (recur (reduce (fn [newly-open [i v]]
                          (reduce (fn [acc dir]
                                    (if (or (closed dir) (open dir)
                                            ;(> 0 (get result dir 22222.0))
                                            )
                                      acc
                                      (do (assoc! result dir (inc v))
                                          (println (count result) " " ctr " " (str open) " " (str newly-open))
                                          (assoc acc dir (inc v)))))
                                  newly-open, [(- i wide)
                                               (+ i wide)
                                               (- i 1)
                                               (+ i 1)]))
                        {}, open) result (inc ctr))
         (persistent! result)))
     ))
 
;;utility functions
 
(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))))
 
(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))))
 
(defn find-floors [^doubles a]
  (find-cells a floor))
 
(defn find-lowest [^doubles a]
  (let [low-val (hiphip/amin a)]
    (find-cells a low-val)))
 
(defn find-monsters [m]
  (into {} (for [mp (map #(:pos @%) m)] [mp wall])))
 
 
;; working code by amalloy
(defn dijkstra
  ([a]
     (dijkstra a (find-walls a) (find-lowest a)))
  ([a ent]
     (dijkstra a (dissoc (merge (find-walls a) (find-monsters @monsters)) (:pos @ent)) (find-lowest a)))
  ([a closed open-cells]
     (loop [open open-cells]
       (when (seq open)
         (recur (reduce (fn [newly-open [i v]]
                          (reduce (fn [acc dir]
                                    (if (or (closed dir) (open dir)
                                            (>= (inc v) (hiphip/aget a dir)))
                                      acc
                                      (do (hiphip/aset a dir (inc v))
                                          (assoc acc dir (inc v)))))
                                  newly-open, [(- i wide)
                                               (+ i wide)
                                               (- i 1)
                                               (+ i 1)]))
                        {}, open))))
     a))

OzsgcHJvYmxlbSBjb2RlCgooZGVmbiBsb2NhbC1kaWprc3RyYQogIChbYSBjZW50ZXIgcmFkaXVzXQogICAgIChsb2NhbC1kaWprc3RyYSBhIChmaW5kLXdhbGxzIGEpIHtjZW50ZXIgMH0gY2VudGVyIHJhZGl1cykpCiAgKFthIGVudCBjZW50ZXIgcmFkaXVzXQogICAgIChsb2NhbC1kaWprc3RyYSBhIChkaXNzb2MgKG1lcmdlIChmaW5kLXdhbGxzIGEpIChmaW5kLW1vbnN0ZXJzIEBtb25zdGVycykpICg6cG9zIEBlbnQpKSB7Y2VudGVyIDB9IGNlbnRlciByYWRpdXMpKQogIChbYSBjbG9zZWQgb3Blbi1jZWxscyBjZW50ZXIgcmFkaXVzXQogICAgIChsb29wIFtvcGVuIG9wZW4tY2VsbHMgcmVzdWx0ICh0cmFuc2llbnQge30pIGN0ciAwXQogICAgICAgCiAgICAgICAoaWYgKGFuZCAoc2VxIG9wZW4pICg8IGN0ciByYWRpdXMpKQogICAgICAgICAocmVjdXIgKHJlZHVjZSAoZm4gW25ld2x5LW9wZW4gW2kgdl1dCiAgICAgICAgICAgICAgICAgICAgICAgICAgKHJlZHVjZSAoZm4gW2FjYyBkaXJdCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChpZiAob3IgKGNsb3NlZCBkaXIpIChvcGVuIGRpcikKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA7KD4gMCAoZ2V0IHJlc3VsdCBkaXIgMjIyMjIuMCkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFjYwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChkbyAoYXNzb2MhIHJlc3VsdCBkaXIgKGluYyB2KSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKHByaW50bG4gKGNvdW50IHJlc3VsdCkgIiAiIGN0ciAiICIgKHN0ciBvcGVuKSAiICIgKHN0ciBuZXdseS1vcGVuKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGFzc29jIGFjYyBkaXIgKGluYyB2KSkpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5ld2x5LW9wZW4sIFsoLSBpIHdpZGUpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKCsgaSB3aWRlKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICgtIGkgMSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoKyBpIDEpXSkpCiAgICAgICAgICAgICAgICAgICAgICAgIHt9LCBvcGVuKSByZXN1bHQgKGluYyBjdHIpKQogICAgICAgICAocGVyc2lzdGVudCEgcmVzdWx0KSkpCiAgICAgKSkKCjs7dXRpbGl0eSBmdW5jdGlvbnMKCihkZWZuIGZpbmQtY2VsbHMgW15kb3VibGVzIGEgY2VsbC1raW5kXQogICAgKHBlcnNpc3RlbnQhIChhcmVkdWNlIF5kb3VibGVzIGEgaSByZXQgKHRyYW5zaWVudCB7fSkKICAgICAgICAgICAgICAgICAgICAgICAgICAoaWYgKD0gKGFnZXQgXmRvdWJsZXMgYSBpKSBjZWxsLWtpbmQpIChhc3NvYyEgcmV0IGkgY2VsbC1raW5kKSByZXQpKSkpCgooZGVmbiBmaW5kLWdvYWxzIFteZG91YmxlcyBhXQogIChmaW5kLWNlbGxzIGEgR09BTCkpCgooZGVmbiBmaW5kLXdhbGxzIFteZG91YmxlcyBhXQogICAgKHBlcnNpc3RlbnQhIChhcmVkdWNlIF5kb3VibGVzIGEgaSByZXQgKHRyYW5zaWVudCB7fSkKICAgICAgICAgICAgICAgICAgICAgICAgICAoaWYgKD49IChhZ2V0IF5kb3VibGVzIGEgaSkgd2FsbCkgKGFzc29jISByZXQgaSB3YWxsKSByZXQpKSkpCgooZGVmbiBmaW5kLWZsb29ycyBbXmRvdWJsZXMgYV0KICAoZmluZC1jZWxscyBhIGZsb29yKSkKCihkZWZuIGZpbmQtbG93ZXN0IFteZG91YmxlcyBhXQogIChsZXQgW2xvdy12YWwgKGhpcGhpcC9hbWluIGEpXQogICAgKGZpbmQtY2VsbHMgYSBsb3ctdmFsKSkpCgooZGVmbiBmaW5kLW1vbnN0ZXJzIFttXQogIChpbnRvIHt9IChmb3IgW21wIChtYXAgIyg6cG9zIEAlKSBtKV0gW21wIHdhbGxdKSkpCgoKOzsgd29ya2luZyBjb2RlIGJ5IGFtYWxsb3kKKGRlZm4gZGlqa3N0cmEKICAoW2FdCiAgICAgKGRpamtzdHJhIGEgKGZpbmQtd2FsbHMgYSkgKGZpbmQtbG93ZXN0IGEpKSkKICAoW2EgZW50XQogICAgIChkaWprc3RyYSBhIChkaXNzb2MgKG1lcmdlIChmaW5kLXdhbGxzIGEpIChmaW5kLW1vbnN0ZXJzIEBtb25zdGVycykpICg6cG9zIEBlbnQpKSAoZmluZC1sb3dlc3QgYSkpKQogIChbYSBjbG9zZWQgb3Blbi1jZWxsc10KICAgICAobG9vcCBbb3BlbiBvcGVuLWNlbGxzXQogICAgICAgKHdoZW4gKHNlcSBvcGVuKQogICAgICAgICAocmVjdXIgKHJlZHVjZSAoZm4gW25ld2x5LW9wZW4gW2kgdl1dCiAgICAgICAgICAgICAgICAgICAgICAgICAgKHJlZHVjZSAoZm4gW2FjYyBkaXJdCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChpZiAob3IgKGNsb3NlZCBkaXIpIChvcGVuIGRpcikKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoPj0gKGluYyB2KSAoaGlwaGlwL2FnZXQgYSBkaXIpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhY2MKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoZG8gKGhpcGhpcC9hc2V0IGEgZGlyIChpbmMgdikpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChhc3NvYyBhY2MgZGlyIChpbmMgdikpKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuZXdseS1vcGVuLCBbKC0gaSB3aWRlKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICgrIGkgd2lkZSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoLSBpIDEpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKCsgaSAxKV0pKQogICAgICAgICAgICAgICAgICAgICAgICB7fSwgb3BlbikpKSkKICAgICBhKSk=