22 lines
341 B
Prolog
22 lines
341 B
Prolog
longueur(X) :- X.
|
|
largeur(X) :- X.
|
|
|
|
aire(X1, Y1, X1, Y1, 1) :- write('blanc').
|
|
aire(X1, Y1, X2, Y2, N) :- X1, Y1, X2, Y2, N.
|
|
|
|
run :- write('oui').
|
|
|
|
/*
|
|
longueur(6).
|
|
largeur(6).
|
|
aire(0,0,1,1,2).
|
|
aire(2,0,2,2,-1).
|
|
aire(3,0,5,1,-1).
|
|
aire(0,2,0,4,-1).
|
|
aire(1,2,1,3,0).
|
|
aire(3,2,5,2,0).
|
|
aire(1,4,1,4,1).
|
|
aire(2,3,5,5,4).
|
|
aire(0,5,1,5,-1).
|
|
run.
|
|
*/
|