как мне это сделать:
Дайте хвостово-рекурсивное определение для каждого из следующих предикатов.
power(X,Y,Z)
: XY = Z.
gcd(X,Y,Z)
: Наибольший общий делитель X и Y - Z.
sum(L,Sum)
: Sum - сумма элементов в L.
пока я сделал это, но не уверен, что это правильно
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.