Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2011, 19:03   #1
Psayker
Пользователь
 
Регистрация: 15.04.2009
Сообщений: 42
По умолчанию Пролог

Здравствуйте,у меня такая проблема,написал программу на прологе вот по такому заданию(помог совет одного из людей,сидящих на этом форуме):
Определить отношение пересечение(Список1, Список2, Список3),где элементы списка Список3 являются общими для списков Список1 и Список2.

Вот код:
Код:
domains
s=symbol
s_list=s* 
predicates
member(s,s_list)
peres(s_list,s_list,s_list)
conc(s_list,s_list,s_list)
clauses
member(Head,[Head|_]).
member(Head,[_|Tail]):-member(Head,Tail).

conc([],L,L).
conc([X|L1],L2,[X|L3]) :- conc(L1,L2,L3). 

peres([H|T],L1,L):-peres(T,L1,K),!,member(H,L1),conc([H],K,L).
peres([H|T],L1,L):-peres(T,L1,L),!.
peres([],_,[]).
goal 
peres(["1","2","3","4","3"],["4","3","5"],L).
Пишет что нет результатов. Помогите найти ошибку пожалуйста.

И помогите ещё с этим (это уже зачётное задание):
Создать БД с книжным каталогом: Ф.И. автора, Название книги, Издательство, Год издания. Найти все книги, изданные в издательстве "Наука" после 1990 года.
Psayker вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Пролог yulia Помощь студентам 11 15.03.2010 16:08
Пролог Dog Помощь студентам 2 18.12.2009 18:12
Пролог Dog Помощь студентам 0 29.11.2009 14:58
Пролог Dog Помощь студентам 3 08.11.2009 13:41