#73 Analyze a Tic-Tac-Toe Board

shockbob-ttt.clj

#(some {[:o :o :o] :o [:x :x :x] :x} 
        (partition 3 
          (map 
          (vec (flatten %))
           [0 1 2 3 4 5 6 7 8
            0 3 6 1 4 7 2 5 8 
            0 4 8 2 4 6])))

tic-tac-toe.clj

(fn [board]
  (let [
    diags (fn [b] (split-at 3 (map #(nth (flatten b) %) '(0 4 8 2 4 6))))
    verts (fn [b] (apply map list b))
    combos (concat board (diags board) (verts board))
    filter-s (filter #(= (count %) 1) (map distinct combos))
    filter-e (filter #(not= (first %) :e) filter-s)
    ]
    (ffirst filter-e)))