June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/N-queens-problem/Clojure/n-queens-problem-1.clj
+++ b/Task/N-queens-problem/Clojure/n-queens-problem-1.clj
--- a/Task/N-queens-problem/Clojure/n-queens-problem-2.clj
+++ b/Task/N-queens-problem/Clojure/n-queens-problem-2.clj
@ -0,0 +1,6 @@
+(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)))))