6 lines
227 B
ObjectPascal
6 lines
227 B
ObjectPascal
// Нерекурсивное решение задачи о расстановке 8 ферзей
|
||
|
||
## (1..8).Permutations
|
||
.Where(v->v.Numerate.Combinations(2)
|
||
.All(\(\(a,b),\(c,d)) -> abs(a-c)<>abs(b-d)))
|
||
.PrintLines |