kishanov

(defn- valid-position?
  [board position]
  (and (= 2 (count position))
       (every? #(< % (count board)) position)
       (every? (complement neg?) position)))