gistfile1.clj

(defn dijkstra
  ([a]
     (dijkstra a (find-walls a) (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 n)))
                                      acc
                                      (do (hiphip/aset a n (inc v))
                                          (assoc acc n (inc v)))))
                                  newly-open, [(- i wide)
                                               (+ i wide)
                                               (- i 1)
                                               (+ i 1)]))
                        {}, open))))
     a))