Автор статьи
Валерия
Эксперт по сдаче вступительных испытаний в ВУЗах
Задание 1
Напишите предикат, аналогичный предикату subst, но производящий взаимную замену X на Y, т. е. X->Y, Y->X Решение: Для замены нужно рассмотреть 4 случая: 1)Когда текущей головой списка является X, то в новый список помещаем Y. 2)Когда текущей головой списка является Y, то в новый список помещаем X. 3)Когда текущей головой списка является не X и не Y, то в новый список помещаем эту голову без замены. 4)В конечном итоге не важно какими числами были X и Y, а важно чтобы текущий список и формируемый новый список были пусты. Листинг программы: substt([],_,_,[]):-!. substt([X|T],X,Y,[Y|N]):- substt(T,X,Y,N),!. substt([Y|T],X,Y,[X|N]):- substt(T,X,Y,N),!. substt([H|T],X,Y,[H|N]):- substt(T,X,Y,N),!. Тестирование программы:Задание 2
Напишите предикат, который определяет, является ли данное натуральное число простым. Воспользуйтесь более общей задачей: ispr(N, M) – «Число N не делится ни на одно число, большее или равное M и меньшее N». Имеем ispr(N, M) истинно, во-первых, если N = M, и, во-вторых, если истинно ispr(N,M+1) и N не делится на M. Решение: Воспользовавшись более общей задачей, составляем сначала предикат ispr после чего вызываем его из другого предиката передавая вместо N исходное число, а вместо M двойку, чтобы в дальнейшем начать её увеличивать. Листинг программы: ispr(I,I):-!. ispr(N,D):- 0 >= (N mod D),!,fail; DD is D+1, ispr(N,DD). prost(2):-!. prost(X):- ispr(X,2). Тестирование программы: Вариант 1, Блок 2Задание 1
Напишите предикат p(+N, +K, -L), истинный тогда и только тогда, когда L – список всех последовательностей (списков) длины K из чисел 1,2,…,N. Решение: Для генерации воспользуемся дополнительным предикатом g который будет наполнять подсписки (количество подсписков определяется из N^K) числами, а в основной предикат вернет эти заполненные подсписки в качестве ответа. Листинг программы: p(_,0,[[]]):-!. p(N,K,L):- KK is K-1, p(N,KK,LL), g(LL,1,N,L). g([],_,_,[]). g([_|T],K,N,LL):- K > N,!, g(T,1,N,LL). g([H|T],K,N,[[K|H]|TT]):- KK is K+1, g([H|T],KK,N,TT). Тестирование программыЗадание 2
Напишите предикат p(+N, -L), истинный тогда и только тогда, когда список L содержит все последовательности (списки) из N нулей и единиц, в которых никакая цифра не повторяется три раза подряд (нет куска вида XXX). Решение: Для начала найдем все возможные комбинации с повторениями нулей и единиц заданной длины. После для каждой комбинации посчитаем кол-во в подряд идущих нулей и единиц, и если их кол-во окажется больше либо равно трем, то тогда такую последовательность просто не включим в ответ. Листинг программы: count(N,_,[],[N]). count(N,H,[H|T],T1):- N1 is N + 1, count(N1,H,T,T1),!. count(N,_,[H|T],[N|T1]):- N1 is 1, count(N1,H,T,T1),!. memb([]). memb([H|T]):- H =< 2, memb(T). head([A|_],A). eval([],_). eval([H|T],S):- member(H,S), eval(T,S). perm(N,S,L):- length(L,N), eval(L,S). check([],[]). check([H|T],[H|T1]):- head(H,A), count(0,A,H,L), memb(L), check(T,T1),!. check([_|T],T1):- check(T,T1),!. p(N,L):- findall(A,perm(N,[0,1],A),R), check(R,L). Тестирование программы: Вывод по работе: В результате выполнения лабораторной работы был получен опыт по реализации как простых, так и более сложных программ при помощи языка Пролог.
О сайте
Ссылка на первоисточник:
http://bgti.ru
Поделитесь в соцсетях: