tictactoe.game.clj

(defn next-move [board player-x player-o]
  (player-move-message (current-piece board))
  (print-board board)
  (let [move (get-move (current-player board player-x player-o) board)]
        (if (valid-move? board move) 
          (apply-move board move)
          (recur board player-x player-o))))

(defn play [board player-x player-o]
  (loop [board board player-x player-x player-o player-o]
    (if (game-over? board)
      (game-over-message board (opponent board))
      (recur (next-move board player-x player-o) player-x player-o))))