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

написать предикат subsets/2, принимающий два списка и истинный в том случае, если второй список является списком всех подсписков первого списка.
subsets([1, 2], [[1], [2], [1,2], []]).
subsets([1, 2], [[2], [1,2], [1], []]).
subsets([1, 2], Res). Res = [[1], [2], [1,2], []]
subsets(Orig, [[1], [2], [1,2], []]). Orig = [1,2]
Ответить с цитированием
  (#2 (permalink)) Старый
Винитарх Винитарх на форуме
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,849
Сказал(а) спасибо: 2
Поблагодарили 285 раз(а) в 285 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 15.10.2014, 15:49

Class listext_progz
посмотрите get_subList_nd
Ответить с цитированием
  (#3 (permalink)) Старый
compasses compasses вне форума
Member
 
Сообщений: 44
Сказал(а) спасибо: 1
Поблагодарили 8 раз(а) в 8 сообщениях
Регистрация: 25.02.2014
По умолчанию 15.10.2014, 15:50

prolog Код:
% subsets([1, 2], [[1], [2], [1,2], []]).
% true
% subsets([1, 2], [[1], [2], [1,2], [],[3]]).
% false.
subsets(_,[]).
subsets(X,[H|T]) :- sublist(H, X), subsets(X, T).

sublist([], _ ).
sublist([X|XS], [X|XSS]) :- sublist(XS, XSS).
sublist([X|XS], [_|XSS]) :- sublist([X|XS], XSS).

условие, является ли список подсписков полным, предлагаю реализовать вам самим.
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Список всех невизуальных компонентов jek_inc_2008 Delphi 0 16.04.2011 03:58
Список всех антивирусных программ v.a.u. Любые вопросы от новичков 1 01.03.2011 23:15
программа которая берет список и создает список другой из этого же списка + исходный Ma3day Prolog 5 26.11.2010 15:40
Написать программу, возвращающую список всех перестановок элементов данного списка artwws Lisp 4 13.11.2010 11:18
Вычислить полное число подсписков, входящих в данный список Sergio_ml Lisp 3 26.01.2010 00:00
Дан список. найти минимум списка czeh87 Lisp 11 24.09.2009 00:06
нахождения суммы всех элементов списка videomag Prolog 33 08.04.2009 23:08
Как построить список из элементов 1го списка входящих во 2ой список Ирина 24 Lisp 3 10.02.2009 10:55
Построить список из элементов 2го списка не входящий в 1ый список Ирина 24 Lisp 4 10.02.2009 10:28
Удаление всех четных элементов списка гульчачак Prolog 4 28.01.2007 13:09
Определить функцию, для удаления последнего элемента из всех подсписков [Sp] Lisp 3 20.05.2006 12:12
Как создать список всех списков длины fest Prolog 2 28.06.2004 08:19



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