как я могу это сделать:
Дайте определение хвостовой рекурсии для каждого из следующих предикатов.power(X,Y,Z)
: XY=Z.gcd(X,Y,Z)
: Наибольший общий делитель X и Y равен Z.sum(L,Sum)
: Сумма — это сумма элементов в Л.
до сих пор я сделал это, но не уверен, что это правильно
power(_,0,1) :- !.
power(X,Y,Z) :- Y1 is Y - 1,power(X,Y1,Z1),Z is X * Z1.
sum(void,0).
sum(t(V,L,R),S) :- sum(L,S1),sum(R,S2), S is V + S1 + S2.