IT-IATU
Информационные системы
Самолетостроение
ОНД
Займы с 18 лет
Главная
»
Информационные системы
»
Представление знаний в ИС
»
Для данного множества (представленного списком) определите список всех вариантов его разбиения на непересекающиеся подмножества.
Для данного множества (представленного списком) определите список всех вариантов его разбиения на непересекающиеся подмножества.
% Bilet13
% Patched by JamshyT 14.01.13
% Special for AISTd-31 :)
% To start type: jstart.
head(X,[X|L]).
tail(L,[X|L]).
member(X,L):-head(X,L).
member(X,L):-tail(T,L),member(X,T).
conk([],L,L).
conk([X|L1],L2,[X|L3]):-conk(L1,L2,L3).
sub(S,L):-
conk(L1,L2,L),
conk(S,L3,L2).
povt([],[]).
povt(L1,L2):-member(X,L1),member(X,L2).
dlina([],0).
dlina([H|T],X):-dlina(T,X1), X is X1+1.
list(L1,L3):-setof((X1,X2),(sub(X1,L1),
sub(X2,L1),
not povt(X1,X2)),L3).
razbPodmn(L1,X):-list(L1,L3),member(X,L3).
jstart:- write(' Vvedite spisok L: '),nl,read(LJAM1),nl,
razbPodmn(LJAM1,X),nl,
write(X).
Друзья! Приглашаем вас к обсуждению. Если у вас есть своё мнение, напишите нам в комментарии.
Поиск по сайту
Поделиться
Дисциплины
Информационные системы
Проектирование ИС
Интеллектуальные ИС
Информационная безопасность и защита информации
Информационные сети
Моделирование систем
Администрирование в ИС
Информационные технологии
Операционные системы
Представление знаний в ИС
Алгоритмизация
Архитектура ЭВМ
Управление данными
Технология программирования
Компьютерная геометрия и графика
Информатика
Самолетостроение
Конструкция и проектирование самолетов
Автоматизированное проектирование конструкций
Основы теории управления
Теория информационных процессов и систем
Электротехника
Физика
Физика (3 семестр)
Прикладная механика
Общенаучные дисциплины
Экономика
Метрология
Философия
Математика (1 семестр)
Математика (2 семестр)
Математика (3 семестр)
Культурология
История
Химия
Биология
Английский язык онлайн – быстро и просто
Что делать, если по учёбе гора долгов?
Помощь в поступлении в американский ВУЗ от Марии Гурьевой