Skip to content

Instantly share code, notes, and snippets.

@youz

youz/youz-4clojure-solution73.clj

Forked from anonymous/youz-4clojure-solution73.clj
Created June 14, 2011 17:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save youz/1025345 to your computer and use it in GitHub Desktop.
Save youz/1025345 to your computer and use it in GitHub Desktop.
Download ZIP
Score: 106
Raw
youz-4clojure-solution73.clj
;; youz's solution to Analyze a Tic-Tac-Toe Board
;; https://4clojure.com/problem/73
;;; inspired by https://gist.github.com/1024984
(fn [a x b]
(ffirst
(remove #(or (some #{:e} %) (a not= %))
`(~@b ~@(a map list b) ~(x b [0 1 2]) ~(x b [2 1 0])))))
apply #(map get % %2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment