fix: XSB incompetible(between)

2024-02-22 01:07:29 -05:00 · 2024-02-22 01:07:29 -05:00 · ebb4f02981
commit ebb4f02981
parent 26687ea775
1 changed files with 7 additions and 0 deletions
--- a/A/queens.P
+++ b/A/queens.P
@ -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, Row1, [(Row1, Col1)|Queens]) :-
    Row1 < N + 1,