6 lines
202 B
Clojure
6 lines
202 B
Clojure
(ns queens
|
|
(:require [clojure.math.combinatorics :as combo]
|
|
|
|
(defn queens [n]
|
|
(filter (fn [x] (every? #(apply distinct? (map-indexed % x)) [+ -]))
|
|
(combo/permutations (range 1 (inc n)))))
|