Количество вызовов функции Аккермана - Prolog

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

Необходимо реализовать подсчет количества итерационных вызовов функции Аккермана в Прологе. Функция Аккермана:

ak(0,N,Val):- Val=N+1.
ak(M,0,Val):- M1=M-1, ak(M1,1,Val).
ak(M,N,Val):- M1=M-1, N1=N-1, ak(M,N1,Val1), ak(M1,Val1,Val).

Решение задачи: «Количество вызовов функции Аккермана»

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

                            ak(0,N,Val, 0):- Val=N+1.
ak(M,0,Val, C):- M1=M-1, ak(M1,1,Val, C1), C = C1+1.
ak(M,N,Val, C):- M1=M-1, N1=N-1, ak(M,N1,Val1, C1), ak(M1,Val1,Val, C2), C = C1+C2+2.
                        

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

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

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