Создать предикат, вычисляющий неотрицательную степень целого числа - Prolog

Формулировка задачи:

Здравствуйте, есть код

predicates 
stepen(integer O, integer P, integer R) 
clauses 
stepen(0, B, 0):- B > 0, !. 
stepen(A, 0, 1):- A <> 0, !. 
stepen(A, B, Pow):- A > 0, B > 0, !, 
Pow = val(integer, exp(B * ln(A))). 
stepen(A, B, Pow):- A<>0, B > 0, B mod 2 = 0, !, 
Pow = val(integer, exp(B * ln(abs(A)))). 
stepen(A, B, Pow):- A<>O, B > 0, 
Pow = - val(integer, exp(B * ln(abs(A)))). 
goal 
stepen(-2, 5, stepen).

что не так? почему не могу запустить, всегда пишет надпись "208 Syntax error in predicate declaration, ',' or ')' expected.

Решение задачи: «Создать предикат, вычисляющий неотрицательную степень целого числа»

textual
                            Листинг программы 
                        

                            predicates
pow(integer,integer,integer)
 
clauses
pow(_,0,1).
pow(P,N,R) :- N1=N-1, pow(P,N1,R1), R=R1*P, !.
                        

Оцени полезность:

5 голосов , оценка 4.2 из 5

Похожие ответы