Нахождение целочисленного корня числа (рекурсивно) - Prolog
Формулировка задачи:
нахождение целочисленного корня числа на прологе рекурсивно
Решение задачи: «Нахождение целочисленного корня числа (рекурсивно)»
textual
Листинг программы
predicates i_sqrt(integer,integer,integer) isqrt(integer,integer) clauses i_sqrt(N,M,M) :- M*M<=N, (M+1)*(M+1)>N,!. i_sqrt(N,M,K) :- M1=M+1, i_sqrt(N,M1,K). isqrt(N,M) :- i_sqrt(N,1,M).