CSE505/B/nqueens.lp

9 lines
180 B
Plaintext
Raw Normal View History

2024-02-21 23:53:58 -05:00
#const n = 8.
% n-Queens encoding
{ q(I,1..n) } == 1 :- I = 1..n.
{ q(1..n,J) } == 1 :- J = 1..n.
:- { q(D-J,J) } >= 2, D = 2..2*n.
:- { q(D+J,J) } >= 2, D = 1-n..n-1.