View difference between Paste ID: JqEmTYvn and e9Ergwqh
SHOW: | | - or go back to the newest paste.
1
(defn addable?
2-
  "Returns true if a queen at rank extends partial-sol."
2+
3
    (every? false? (map (partial apply (partial test? (+ 1 (count list)) rank))
4
                        (map-indexed (fn [i v] (vector (inc i) v))
5
                                      list))))