[Закрыть]
 
popoff.donetsk.ua
Жизнь воина коротка, но память о нём живёт вечно. Настоящий воин не должен чувствовать страх перед неизвестностью, ибо то, что тайно, есть важным. И сила его есть не в знании, а в понимании. И слепцу можно указать верный путь, но увидит ли он его?
Начало | Новости | Статьи | Форум | Опросы | Карта сайта | Обо мне
popoff.donetsk.ua - Форум - Функциональное и логическое программирование - добавить предикат. prolog.

добавить предикат. prolog.

форумы popoff.donetsk.ua
Страницы: [1]
<< Новый  |  Старый >>  |  Ответ не возможен

Внимание! Этот топик устарел. Пожалуйста, создайте новый топик, чтобы задать интересующий Вас вопрос.

Автор Сообщение
KalinaK
Alina
Окт, 2013
Сообщений: 1
KalinaK url://forum.message:3256
добавить предикат. prolog.
<p>Здравствуйте! Мое задание состоит в том, чтобы к нижеприведенной задаче добавить предикат sublist( SubL,L ), здесь SubL,L списки.<br />Предикат истинен если: список SubL является подсписком списка L.<br />Пример: [s,d,s],[a,s],[d,s,f],[ ], [a,s,d,s,f] – подсписки [a,s,d,s,f] (не все).<br />Цель – sublist ( SL, [a,s,d,f] ).</p><p>Заранее Спасибо!</p><p>/****************LISTS*******************/</p><p>DOMAINS<br />p=string<br />x=integer<br />l_p=p*<br />l_x=x*</p><p>PREDICATES<br />member(p,l_p)<br />delete(p,l_p,l_p)<br />append(l_p,l_p,l_p)<br />reverse(l_p,l_p)<br />reverse(l_p,l_p,l_p)<br />print_list(l_p)<br />generate(x,x,l_x)</p><br /><p>CLAUSES</p><p>member(X,[X|_]).<br />member(X,[_|L]):-<br />member(X,L).</p><p>delete(A,[A|L],L).<br />delete(A,[B|L],[B|L1]):-<br />delete(A,L,L1).</p><br /><p>append([],L,L).<br />append([A|L],L1,[A|L2]):-<br />append(L,L1,L2).</p><p>reverse([],[]).<br />reverse([A|L],L1):-<br />reverse(L,L2),<br />append(L2,[A],L1).</p><p>reverse([],L,L).<br />reverse([A|L],L1,L2):-<br />reverse(L,[A|L1],L2).<br />print_list([]).<br />print_list([A|L]):-<br />write(A),nl,<br />print_list(L).<br />generate(N,N,[N]).<br />generate(M,N,[M|T]):-<br />M<NN,<br />M1=M+1,<br />generate(M1,N,T).</p>

Внимание! Этот топик устарел. Пожалуйста, создайте новый топик, чтобы задать интересующий Вас вопрос.

Страницы: [1]
<< Новый  |  Старый >>  |  Ответ не возможен
Вход
Поиск[?]:
Personal Photo.сайт:
www.denisey.com.ua