jgustak-4clojure-solution73.clj

;; jgustak's solution to Analyze a Tic-Tac-Toe Board
;; https://4clojure.com/problem/73

(fn tictac [mtx]
  (let [xs (concat mtx
                   (vec (apply map vector mtx))
                   [(for [x [0 1 2]] (get-in mtx [x x]))
                    (for [x [0 1 2]] (get-in mtx [x (- 2 x)]))])
        who (fn [ys]
          (and (apply = ys) (not= (first ys) :e) (first ys)))]
    (loop [xs xs]
      (when (seq xs)
        (if-let [winner (who (first xs))]
          winner
          (recur (rest xs)))))))