 
 (defn- focus-human-player?
   [{:keys [blue red green] :as scores}]
-  (let [human-score (* 1.2 blue)]
+  (let [human-score (* 1.1 blue)]
     (and (< red human-score) (< green human-score))))
 
 (defn play-best-move


;; -----------------------------------------

;; TODO - Try to develop a transducer for min-max

(defn- min-max-step-with
  [min-fn max-fn ai turn on-transition]
  (apply

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

(defn- min-max-step
  [ai turn on-transition]
