fronx-4clojure-solution73.clj

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

(fn [m]
  (first
    (filter
      (fn [p]
        (if (empty?
              (->> (concat m
                           (map (fn [i]
                                  (map #(% i) m))
                                '(0 1 2))
                           (vector (map #((m %) %)
                                        '(0 1 2)))
                           (vector (map #((m (- 2 %)) %)
                                        '(0 1 2))))
                   (map (fn [row]
                          (count (filter #(= p %) row))))
                   (filter #(= % 3))))
            nil
            p))
      [:x :o])))