       )))
 
 (defn- focus-human-player?
+  "High level AI to decude whether the AI ally against the human player"
   [{:keys [blue red green] :as scores}]
   (let [human-score (* 1.1 blue)]
     (and (< red human-score) (< green human-score))))

    ))

(defn- best-move
  [ai turn]
  (first
    (min-max-step-by
      second ai turn
      (fn [coord transition]
        (let [new-turn (turn/next-turn turn transition)]

      (fn [[coord transition]] (on-transition coord transition))
      (turn/transitions turn))))

(defn- minimax-step-by
  [key-fn ai turn on-transition]
  (minimax-step
    ai turn on-transition
    :min-fn (partial min-key key-fn) ;; Lambda does not work here
    :max-fn (partial max-key key-fn)))
