 
 (def coordinates
   (vec (for [x (range width) y (range height)] [x y])))
-
-(def empty-board
-  "An empty board of `width` columns times `height` owners"
-  (let [empty-column (vec (repeat height :none))]
-    (vec (repeat width empty-column))))
-
-
-;; -----------------------------------------
-;; Public Types
-;; -----------------------------------------
 
 (s/def ::coord (set coordinates))
 

;; Public API
;; -----------------------------------------

(defn convert-cell
  [board coord owner]
  (assoc-in board coord owner))



;; -----------------------------------------
;; Public Types
;; -----------------------------------------

(def width 16)
