Clojure stuff

funwithclojure.clj

(def grid (atom [
    [0 0 0]
    [0 0 0]
    [0 0 0]
]))

(defn update-grid [row-index col-index val]
  (swap! grid assoc-in [row-index col-index] val))
  
(defn full-row? [row]
  (every? pos? row))
  
(defn winner? []
  (or (
    (some full-row? (get-cols))
    (some full-row? @grid))))
    
(defn get-cols [] (vec (apply map vector @grid)))