diff --git a/resolveur.pl b/resolveur.pl index 9b4bf0f..ac88d9f 100644 --- a/resolveur.pl +++ b/resolveur.pl @@ -12,7 +12,7 @@ airereverse(X1, Y1, X2, Y2, 0, T) :- case(X1, Y1, 0), NX is X1 - 1, NX \= T, air % cellule -case(X, Y, C) :-write("\n"), write("Coordonnées: X="), write(X), write(", Y="), write(Y), write(". Couleur : "), write(C). +case(X, Y, C) :-write("\n"), write("Coordonnées: X="), write(X), write(", Y="), write(Y), write("| Couleur: "), write(C). run([]) :- write('0: case blanc, 1: case noire'). run([[X1, Y1, X2, Y2, E] | Q]) :- T is X2 - X1, aire(X1, Y1, X2, Y2, E, T), run(Q).