     [state grid-width grid-height is-first-player]
     (let [ _ (prn "Childrens of" (state :last-move))
            possible-moves (gen-children-points state grid-width grid-height)
-           _ (prn state possible-moves)
+           ;_ (prn state possible-moves)
           possible-states (set
                             (map
                               #(generate-world-from-position grid-width grid-height state % is-first-player)

(defn gen-heuristic-dictionary
  "Generate the dictionnary of heuristics values"
  [depth]
  (apply merge (for [x '(:min :max :wall :empty)]
                 (if (= depth 0)
                   {x 0}
                   {x (gen-heuristic-dictionary (dec depth))}))))

                                            (dec max-depth)
                                            grid-width
                                            grid-height)
                  v v-temp ;(- v-temp)
                  _ (prn "HEUR_VAL" v (successor-state :last-move))]
              (if (> v best)
                (let [new-best v
                      new-best-move (successor-state :last-move)]
