Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/N-queens-problem/Mathematica/n-queens-problem-1.math
+++ b/Task/N-queens-problem/Mathematica/n-queens-problem-1.math
@ -0,0 +1,9 @@
+safe[q_List, n_] :=
+ With[{l = Length@q},
+  Length@Union@q == Length@Union[q + Range@l] ==
+   Length@Union[q - Range@l] == l]
+nQueen[q_List: {}, n_] :=
+ If[safe[q, n],
+  If[Length[q] == n, {q},
+   Cases[nQueen[Append[q, #], n] & /@ Range[n],
+    Except[{Null} | {}], {2}]], Null]