Solution to Problem 73

problem_73.clj

#(first (reduce-kv 
         (fn [res k v]
           (if (or
                (clojure.set/subset? #{0 1 2} v)
                (clojure.set/subset? #{3 4 5} v)
                (clojure.set/subset? #{6 7 8} v)
                (clojure.set/subset? #{0 3 6} v)
                (clojure.set/subset? #{1 4 7} v)
                (clojure.set/subset? #{2 5 8} v)
                (clojure.set/subset? #{0 4 8} v)
                (clojure.set/subset? #{2 4 6} v)) 
             (conj res k) 
             res)) 
         '()
         (reduce-kv 
          (fn [m k v]
            (assoc m k (set (map first v))))
          {}
          (dissoc (group-by second (map-indexed list (flatten %))) :e))))