Skip to content

Instantly share code, notes, and snippets.

@kishanov

kishanov/valid-position.clj

Created August 2, 2014 13:34
Show Gist options
  • Save kishanov/9b0076aec0415ca97ace to your computer and use it in GitHub Desktop.
Save kishanov/9b0076aec0415ca97ace to your computer and use it in GitHub Desktop.
Download ZIP
Raw
valid-position.clj
(defn- valid-position?
[board position]
(and (= 2 (count position))
(every? #(< % (count board)) position)
(every? (complement neg?) position)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment