triboard.ai.high-level-ai-details.cljs

(defn- human-player-winning?
  [{:keys [blue red green] :as scores}]
  (let [human-score (* 1.1 blue)]
    (and (< red human-score) (< green human-score))))

(defn- limited-move-options?
  [turn]
  (< (count (turn/transitions turn)) 5))

(defn- in-late-game?
  [scores]
  (let [max-score (count board/coordinates)
        sum-score (apply + (vals scores))]
    (< (- max-score sum-score) 20)))