fronx · September 16, 2011 17:49
diff --git a/fronx-4clojure-solution73.clj b/fronx-4clojure-solution73.clj
 ;; fronx's solution to Analyze a Tic-Tac-Toe Board
 ;; https://4clojure.com/problem/73

 (fn [m]
  (first
    (filter
      (fn win? [player]
        (->> (let [idx [0 1 2]]
                (concat m                               ; rows
                  (map (fn [i] (map #(% i) m)) idx)     ; columns
                  (vector (map #((m %) %) idx))         ; diagonal 1
                  (vector (map #((m (- 2 %)) %) idx)))) ; diagonal 2
             (map (fn [row] (count (filter #(= player %) row))))
             (filter #(= % 3))
             seq))
      [:x :o])))

 ; [
 ;  ; rows
 ;  [a b c]
 ;  [d e f]
 ;  [g h i]
 ;  ; columns
 ;  [a d g]
 ;  [b e h]
 ;  [c f i]
 ;  ; diagonals
 ;  [a e i]
 ;  [g e c]
 ; ]
	;; fronx's solution to Analyze a Tic-Tac-Toe Board
	;; https://4clojure.com/problem/73

	(fn [m]
	(first
	(filter
	(fn win? [player]
	(->> (let [idx [0 1 2]]
	(concat m ; rows
	(map (fn [i] (map #(% i) m)) idx) ; columns
	(vector (map #((m %) %) idx)) ; diagonal 1
	(vector (map #((m (- 2 %)) %) idx)))) ; diagonal 2
	(map (fn [row] (count (filter #(= player %) row))))
	(filter #(= % 3))
	seq))
	[:x :o])))

	; [
	; ; rows
	; [a b c]
	; [d e f]
	; [g h i]
	; ; columns
	; [a d g]
	; [b e h]
	; [c f i]
	; ; diagonals
	; [a e i]
	; [g e c]
	; ]