Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment