3.

3.1
aime(adam,pommes).
aime(clara,carottes).
aime(olivier,oranges).
fruit(pommes).
fruit(oranges).
legumes(carottes).
sante(X) :- aime(X,Y) , fruit(Y).


3.2
sante(X).

aime(X,pommes).

fruit(X).

5:


1: bio(X,f,_,_,_,_).
2.  bio(X,f,_,_,_,_) , bio(_,_,_,_,_,X).
3. bio(X,_,Y,_,_,_) , Y >= 1750 , Y=<1800.
4. bio(X,f,_,_,henri4,_) , bio(_,_,_,_,_,X).

5)
enfant(E,P) :- bio(E,_,_,_,P,_).
enfant(E,P) :- bio(E,_,_,_,_,P).

ptenfant(P,G) :- enfant(P,X) , enfant(X,G).

descendent(D,A) :- enfant(D,A).
descendent(D,A) :- enfant(D,X) , descendent(X,A).



6: bio(X,f,_,_,_,_) , ptenfant(X,henri4).


7: descendent(X,louis14).

8: descendent(louis17,X) , bio(X,_,_,_,_,_).

/* exo 5 */

transform(z,0).
transform(s(T),N) :- transform(T,M) , N is M+1.

somme(z,X,X).
somme(s(Y),X,s(Z)) :- somme(Y,X,Z).

produit(z,_,z).
produit(s(X),Y,Z) :- produit(X,Y,Z1) , somme(Y,Z1,Z).


puissance(X,z,s(z)).
puissance(X,s(Y),R) :- puissance(X,Y,T) , produit(X,T,R).