Post_91.2.clj

(def options-list (atom {:first-marker "first-marker" :second-marker "second-marker" :board "board" :first-type "first-type" :second-type "second-type"}))

(def add-to-options (fn [symbol option] (swap! options-list assoc-in [symbol] option)))

(defn get-first-player []
  (ui/prompt-for-piece))

(defn get-second-player []
  (ui/prompt-for-ai-piece))

(defn get-board []
  (vec (range 1 (inc 9))))

(defn get-options []
  (add-to-options :first-marker (get-first-player))
  (add-to-options :second-marker (get-second-player))
  (add-to-options :board (get-board))
  (add-to-options :first-type "human")
  (add-to-options :second-type "ai"))