Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn queens [n]
- (filter (fn [p] (every? #(apply distinct? (map-indexed % p)) [+ -]))
- (combo/permutations (range 1 (inc n)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement