Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 1 - div(X,X).
- div(X,Y) :- X>0 , X =< Y , Y1 is Y-X , Y1 >= X , div(X,Y1).
- 2 - racine_carre(X,Y) :- X >= 0 , integer(X) , Y is sqrt(X) .
- 3 - fibonacii(0,1) .
- fibonacii(1,1) .
- fibonacii(N,S) :- N >= 2 , N1 is N-1 , fibonacii(N1,S1) , N2 is N-2 , fibonacii(N2,S2) , S is S1 + S2 .
Add Comment
Please, Sign In to add comment