fix typo
This commit is contained in:
parent
f79dad09fd
commit
f039517dad
1 changed files with 8 additions and 8 deletions
|
@ -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 = [
|
||||
|
|
Loading…
Reference in a new issue