описать предикат, котор истинен если каждый повтор. эл-т списка1 встречается в списке2 хотя бы один раз подряд идущим

@gebs · Регистрация: 19.12.2010

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста написать прогу:
описать предикат p(List1,List2), который истинен если каждый повторяющийся элемент List1 встречается в List2 хотя бы один раз подряд идущим.
Очень надеюсь на вашу помощь!

@Грымзик · 19.12.2010, 17:47

Prolog
1
2
3
4
5
6
check(H,[H,H|_]):-!.
check(H,[_|Tail]):-check(H,Tail).
 
p([],_).
p([H|Tail],L):-member(H,Tail),!,check(H,L),p(Tail,L).
p([_|Tail],L):-p(Tail,L).

@gebs · 19.12.2010, 18:34 **[ТС]**

Я вам очень благодарен, но не могли бы вы дать текст с predicates и clauses. Я пока что еще не очень дружу с прологом

@Грымзик · 19.12.2010, 18:42

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
domains
ilist=integer*
 
predicates
check(integer,ilist).
p(ilist,ilist).
member(integer,ilist).
 
clauses
member(H,[H|_]).
member(H,[_|Tail]):-member(H,Tail).
 
check(H,[H,H|_]):-!.
check(H,[_|Tail]):-check(H,Tail).
 
p([],_).
p([H|Tail],L):-member(H,Tail),!,check(H,L),p(Tail,L).
p([_|Tail],L):-p(Tail,L).
 
goal
p([1,2,3,4,5,3,1],[3,6,1,5,5,3,3,1,3,5,1,1]).

@gebs · 19.12.2010, 18:49 **[ТС]**

Огромное спасибо, цены вам нет)))

Новые блоги и статьи Все статьи Все блоги /
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .

@gebs 6 / 6 / 0 Регистрация: 19.12.2010 Сообщений: 20

	описать предикат, котор истинен если каждый повтор. эл-т списка1 встречается в списке2 хотя бы один раз подряд идущим 19.12.2010, 16:11. Показов 1169. Ответов 4 Метки нет (Все метки) Помогите пожалуйста написать прогу: описать предикат p(List1,List2), который истинен если каждый повторяющийся элемент List1 встречается в List2 хотя бы один раз подряд идущим. Очень надеюсь на вашу помощь! 0

@gebs 6 / 6 / 0 Регистрация: 19.12.2010 Сообщений: 20
	19.12.2010, 18:34 [ТС]
	Я вам очень благодарен, но не могли бы вы дать текст с predicates и clauses. Я пока что еще не очень дружу с прологом 0

@gebs 6 / 6 / 0 Регистрация: 19.12.2010 Сообщений: 20
	19.12.2010, 18:49 [ТС]
	Огромное спасибо, цены вам нет))) 0

Опции темы