:- use_module(library(lists)).
:- use_module(library(clpr)).

degres(F,C):-{F=9/5*C+32}.

revenu(C0,C1,I,1) :- {C1=C0*(1+I)}.
revenu(C0,C1,I,N) :- N1 is N-1,revenu(C0,C2,I,N1),{C1=C2*(1+I)}.

enum(A,B,I) :- listeDes(A,B,ABs),!,member(I,ABs).

listeDes(B,B,[B]).
listeDes(A,B,[A|Bs]) :- A1 is A+1,listeDes(A1,B,Bs).

age(jean,30).
age(marie,10).
age(paul,5).