/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Algorithms/QueensNonRecursive.pas
6 строк
227 B
Mikhalkovich Stanislav
QueensNonRecursive.pas
15 июн 2025, 16:23
15 июн 2025, 16:23
5bd51e4
Код
Авторство
О чём код?
// Нерекурсивное решение задачи о расстановке 8 ферзей ## (1..8).Permutations .Where(v->v.Numerate.Combinations(2) .All(\(\(a,b),\(c,d)) -> abs(a-c)<>abs(b-d))) .PrintLines