Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Списки. Дубли.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Shal Shal вне форума
Member
 
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.11.2004
По умолчанию Списки. Дубли. - 06.12.2004, 06:39

Нужно получить ответ, есть ли в списке одинаковые элементы. Не помоэете решить такую задачу?
Ответить с цитированием
  (#2 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,959
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 06.12.2004, 14:40

Внимательно просмотрите форум. Эта задача решалась много раз.
Ответить с цитированием
  (#3 (permalink)) Старый
Shal Shal вне форума
Member
 
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.11.2004
По умолчанию 08.12.2004, 09:18

Чтот я не нашел...
Ответить с цитированием
  (#4 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,959
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 08.12.2004, 23:23

Код:
domains IL = integer*
predicates
дубль(IL)
member(integer,IL)
goal дубль([9,7,1,5,3,1]).
clauses
дубль([I|L]):-member(I,L),!.
дубль([_|L]):-дубль(L).
member(I,[I|_]):-!.
member(I,[_|L]):-member(I,L).
Ответить с цитированием
  (#5 (permalink)) Старый
Shal Shal вне форума
Member
 
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.11.2004
По умолчанию 10.12.2004, 18:51

Чтот Пролог не выдает ответ...все пусто...В чем дело?
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,959
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 10.12.2004, 19:52

Предикат дубль() истинен, если список содержит дубли, и ложен - в противном случае. Какой ответ то Пролога Вы хотите увидеть?
Ответить с цитированием
  (#7 (permalink)) Старый
Shal Shal вне форума
Member
 
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.11.2004
По умолчанию 14.12.2004, 07:02

Ну обычно пишется solution или no, yes...в таком плане...
Ответить с цитированием
  (#8 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,959
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 14.12.2004, 19:25

Лично у меня VIP пишет Yes или No, в зависимости от содержимого списка. Если Вы работаете в каком-нибудь древнем Прологе - используйте к примеру:
Код:
goal дубль([9,7,1,5,3,1]), write("Yes");write("No").
Хотя... и древние Прологи должны отвечать Yes/No.
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Списки gogenzzo Prolog 4 10.10.2010 17:14
списки lesya-smile Prolog 1 14.05.2010 00:38
Списки max.d-666 Prolog 0 13.05.2010 06:30
Списки ANUBIS Prolog 1 03.05.2010 12:01
Списки NOCaut Prolog 2 21.04.2010 11:36
Списки DIZlock Prolog 2 01.04.2010 11:05
списки annytka Prolog 2 19.02.2010 11:48
списки nataly_ch Prolog 10 04.02.2010 16:21
Списки Rushan Prolog 1 12.01.2010 11:33
СПИСКИ tomsonlp Prolog 4 08.05.2009 22:47
Списки для Уфы drunkenelf Prolog 1 22.12.2005 11:52
Списки на SWI katish Prolog 15 20.11.2005 19:46



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