tictactoe.game.clj

(def player-types ["human" "computer" "ai"])

(defmulti get-move (fn [current-player board] (:player-type current-player)))

(defmethod get-move "human" [current-player board]
  (get-human-move))

(defmethod get-move "computer" [current-player board]
  (get-random-move board))

(defmethod get-move "ai" [current-player board]
  (get-ai-move (:piece current-player) board))

;; current-player methods

(defn current-player [board player-x player-o]
  (if (even? (count (filter string? board)))
    player-x 
    player-o))

(defn current-piece [board]
  (if (even? (count (filter string? board)))
    (first piece) 
    (second piece)))