Скачиваний:
44
Добавлен:
23.06.2014
Размер:
623 б
Скачать
%Напишите новую версию процедуры "предок", которая вырабатывает список представителей всех промежуточных поколений,
%располагающихся между предком и потомком. Предположим, например, что Генри является отцом Джека, Джек - отцом Ричарда,
%Ричард - отцом Чарльза, а Чарльз - отцом Джейн. При запросе о том, является ли Генри предком Джейн,
% должен выдаваться список, характеризующий родственную связь этих людей, конкретно: [джек, ричард, чарльз].

отец(генри,джек).
отец(джек,ричард).
отец(ричард,чарльз).
отец(чарльз,джейн).
предок(X,Y,L):-отец(X,Y),append(L,[],L),!.
предок(X,Y,[Z|L]):-отец(X,Z),предок(Z,Y,L).
Соседние файлы в папке 1- 7_Прикладные методы искусственного интеллекта