This commit is contained in:
Yohan Simard 2021-03-21 11:12:08 +01:00
parent f79dad09fd
commit f039517dad

View file

@ -58,14 +58,14 @@ seconde_diag(K, [E | D], [Ligne | M]) :-
possible([X | L], J) :- unifiable(X, J), possible(L, J), !.
possible([], _).
unifiable(X, _) :-
var(X),
unifiable(A, _) :-
var(A),
!.
unifiable(_, J) :-
var(J),
unifiable(_, B) :-
var(B),
!.
unifiable(X, J) :-
X == J.
unifiable(A, B) :-
A = B.
% Vérifie que Ali est un alignement gagnant pour J
alignement_gagnant(Ali, J) :-
@ -157,10 +157,10 @@ testAlignementGagnant :-
C = [o,o,o],
\+ alignement_gagnant(A, o),
\+ alignement_gagnant(B, o),
\+ alignement_gagnant(A, _).
\+ alignement_gagnant(A, _),
alignement_gagnant(C, o),
alignement_gagnant(C, J),
J == o,
J == o.
testHeuristique :-
LS = [