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

ajout aire case et changement du run

Browse source
This commit is contained in:
Mylloon 2021-03-06 19:31:08 +01:00
parent 6fe582a7df
commit c73bb0f7fb
1 changed files with 26 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
resolveur.pl
View file

@ -1,22 +1,31 @@
longueur(X) :- X. % zone noire
largeur(X) :- X. aire(X, Y, X, Y, 1) :- case(X, Y, 1).
aire(X1, Y1, X1, Y1, 1) :- write('blanc'). % zone blanche
aire(X1, Y1, X2, Y2, N) :- X1, Y1, X2, Y2, N. aire(X1, Y1, X2, Y2, 0, T) :- case(X1, Y1, 0), NX is X1 + 1, aire(NX, Y1, X2, Y2, 0, T).
aire(X, Y1, X, Y2, 0, T) :- case(X, Y1, 0), NY is Y1 + 1, airereverse(X, NY, X, 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).
run :- write('oui').
% zone
% aire(X1, Y1, X2, Y2, N, T) :- X1, Y1, X2, Y2, N, T.
% cellule
case(X, Y, C) :- 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, N] | Q]) :- T is X2 - X1, aire(X1, Y1, X2, Y2, N, T), run(Q).
/* /*
longueur(6).
largeur(6). run([[0,0,1,1,2],
aire(0,0,1,1,2). [2,0,2,2,-1],
aire(2,0,2,2,-1). [3,0,5,1,-1],
aire(3,0,5,1,-1). [0,2,0,4,-1],
aire(0,2,0,4,-1). [1,2,1,3,0],
aire(1,2,1,3,0). [3,2,5,2,0],
aire(3,2,5,2,0). [1,4,1,4,1],
aire(1,4,1,4,1). [2,3,5,5,4],
aire(2,3,5,5,4). [0,5,1,5,-1]]).
aire(0,5,1,5,-1).
run.
*/ */