Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Работа со списками.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
BLACKRIDER BLACKRIDER вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.05.2010
По умолчанию 10.05.2010, 11:08

Найти длину первой непрерывной подпоследовательности из нечетных значений в списке чисел.
?- first_even_seq_len([1,2,3,5,7,8], X).
X = 3.

Несколько непонятно, как найти именно максимальную длину первой непрерывной подпоследовательности. Подскажите, как это можно осуществить?
Ответить с цитированием
  (#2 (permalink)) Старый
pavelr pavelr вне форума
Member
 
Сообщений: 207
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.03.2010
По умолчанию 10.05.2010, 11:58

Уж не знаю,насколько рационально,но работает:
Код:
domains
i=integer
il=i*
predicates
dl(il,i,i)
first_even_seq_len(il,i)
clauses
dl([_],1,P):-P=1,!.
dl([_],0,_).
dl([X,Y|T],K,_):-x mod 2=1,Y=X+2,!,dl([Y|T],K1,1),K=K1+1.
dl([_,Y|T],K,P):-P=0,!,dl([Y|T],K,P).
dl([_,Y|_],K,P):-Dl([Y],K,P).
first_even_seq_len(L,K):-Dl(L,K,0).
goal
first_even_seq_len([1,2,3,5,7,8],X).
Ответить с цитированием
  (#3 (permalink)) Старый
BLACKRIDER BLACKRIDER вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.05.2010
По умолчанию 10.05.2010, 12:31

Спасибо!)
Ответить с цитированием
  (#4 (permalink)) Старый
pavelr pavelr вне форума
Member
 
Сообщений: 207
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.03.2010
По умолчанию 10.05.2010, 12:34

Это надо было?
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа со списками 3ai4i6ka Prolog 0 20.10.2011 22:12
Работа со списками ELEKTRI4KA Prolog 3 07.06.2011 01:22
работа со списками Novichok92 Prolog 1 10.11.2009 19:15
работа со списками FEAR Prolog 8 09.11.2009 01:08
работа со списками ShokoLad Prolog 18 24.07.2009 02:53
работа со списками из_семи Prolog 12 04.05.2009 01:22
Работа со списками wert30 Prolog 2 24.01.2009 16:04
Работа со списками Михаил_1987 Prolog 3 19.01.2009 09:18
Работа со списками. status Prolog 17 01.11.2008 13:06
Работа со списками izen Prolog 1 04.05.2008 21:55
Работа со списками NRGize Prolog 2 25.05.2007 00:43
Работа с списками ViL Prolog 1 15.04.2006 08:51



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов