From 57bc283a1e076c4b643f713b7b231db74a2ea955 Mon Sep 17 00:00:00 2001 From: Anri Kennel Date: Tue, 9 Mar 2021 22:14:36 +0100 Subject: [PATCH] presentation --- resolveur.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/resolveur.pl b/resolveur.pl index ac88d9f..ae76399 100644 --- a/resolveur.pl +++ b/resolveur.pl @@ -10,9 +10,8 @@ aire(X1, Y1, X2, Y2, E, T) :- E \= 0, write("\n"), write(X1), write(" "), write( airereverse(X1, Y1, X2, Y2, 0, T) :- case(X1, Y1, 0), NX is X1 - 1, NX \= T, airereverse(NX, Y1, X2, Y2, 0, T); NX = T, aire(NX, Y1, X2, Y2, 0, T). - % 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).