   (:gen-class))
 
 (def width-heuristic-calculation 5)
-(def directors {:h (map #(do [%1 0]) (range -5 6))
-                :v (map #(do [0 %1]) (range -5 6))
+(def directors {:h  (map #(do [%1 0]) (range -5 6))
+                :v  (map #(do [0 %1]) (range -5 6))
                 :d1 (map #(do [%1 %1]) (range -5 6))
                 :d2 (map #(do [%1 (- %1)]) (range -5 6))})
 

          (gen-heuristic-dictionary width-heuristic-calculation)
          (apply clojure.math.combinatorics/cartesian-product
                 (for [_ (range width-heuristic-calculation)] [:min :max :wall :empty]))))

(def heuristic-dict (fill-heuristics-dict))


                         [grid-w grid-h])))


(defn generate-world-from-position
  ""
  [grid-w grid-h state position is-first-player]
  (let [tstate (transient state)]
    (assoc! tstate is-first-player (conj (state is-first-player) position))
    (assoc! tstate :last-move position)
    (assoc! tstate :heuristic-result (get-value-for-state grid-w
