From 5bd51e4c96a6b61df52798b6743ee9839f35d073 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Sun, 15 Jun 2025 16:23:45 +0300
Subject: [PATCH] QueensNonRecursive.pas

---
 InstallerSamples/Algorithms/QueensNonRecursive.pas | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 InstallerSamples/Algorithms/QueensNonRecursive.pas

diff --git a/InstallerSamples/Algorithms/QueensNonRecursive.pas b/InstallerSamples/Algorithms/QueensNonRecursive.pas
new file mode 100644
index 000000000..d941f4082
--- /dev/null
+++ b/InstallerSamples/Algorithms/QueensNonRecursive.pas
@@ -0,0 +1,6 @@
+// Нерекурсивное решение задачи о расстановке 8 ферзей
+
+## (1..8).Permutations
+.Where(v->v.Numerate.Combinations(2)
+       .All(\(\(a,b),\(c,d)) -> abs(a-c)<>abs(b-d)))
+.PrintLines
\ No newline at end of file