Paris8/heyawake-prolog
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

presentation

Browse source
This commit is contained in:
Mylloon 2021-03-09 22:14:36 +01:00
parent c1cb985235
commit 57bc283a1e
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
resolveur.pl
View file

@ -10,7 +10,6 @@ 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); 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). NX = T, aire(NX, Y1, X2, Y2, 0, T).
% cellule % 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).