11 lines
168 B
Prolog
11 lines
168 B
Prolog
entier(zero).
|
|
entier(s(X)) :- entier(X).
|
|
|
|
add(X, zero, X).
|
|
add(X, s(Y), Z) :- add(s(X), Y, Z).
|
|
|
|
mult(zero, X, zero).
|
|
mult(s(Y), X, Z) :- mult(Y, X, W), add(W, X, Z).
|
|
|
|
|