Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(s/fdef new-init-turn
:ret ::turn)
(s/def ::turn-data
(s/keys :req-un
[::board/board
::player/player
::scores/scores]))
(defn new-init-turn []
(with-next-player
{:board (board/new-board)
:player (rand-nth player/all)
:transitions {} ;; No commitment on keeping it
:scores (scores/initial-scores cst/init-block-count)}))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment