renge/CSE505
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: XSB incompetible(between)

Browse Source
This commit is contained in:
Renge 2024-02-22 01:07:29 -05:00
parent 26687ea775
commit ebb4f02981
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
A/queens.P
View File

@ -1,3 +1,10 @@
between(I, J, K) :-
I =< J,
( I = K
; I1 is I+1,
between(I1, J, K)
).
legal_queens(N, Row, []) :- N =:= Row - 1. legal_queens(N, Row, []) :- N =:= Row - 1.
legal_queens(N, Row1, [(Row1, Col1)|Queens]) :- legal_queens(N, Row1, [(Row1, Col1)|Queens]) :-
Row1 < N + 1, Row1 < N + 1,