administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

QueensNonRecursive.pas

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2025-06-15 16:23:45 +03:00
parent d6f30e8e70
commit 5bd51e4c96
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
InstallerSamples/Algorithms/QueensNonRecursive.pas Normal file
View file

@ -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