Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
ЛЕКЦИЯ 11
16.11.12
Множество -- это список без повторов.
1. Превратить список в множество.
(удалить все повторяющиеся элементы)
(голова первого -- это голова второго, а из хвоста все вхождения головы удалить)
list_set([], []) :- !.
list_set([H|T], [H|T1]) :- del_all(H, T, R), list_set(R, T1).
4. Объединение
union([], [], []) :- !.
union([], [HB|TB], C) :- member(HB, C), !, union([], TB, C).
union([], [HB|TB], [HB|TC]) :- !, union([], TB, TC).
union([HA|TA], B, C) :- member(HA, C), !, union(TA, B, C).
union([HA|TA], B, [HA|TC]) :- !, union(TA, B, TC).
union([], B, B) :- !.
union([H|A], B, [H|C]) :- del_all(H, B, B1), union(A, B1, C).
______________________________________
16.11.12
Множество -- это список без повторов.
1. Превратить список в множество.
(удалить все повторяющиеся элементы)
(голова первого -- это голова второго, а из хвоста все вхождения головы удалить)
list_set([], []) :- !.
list_set([H|T], [H|T1]) :- del_all(H, T, R), list_set(R, T1).
4. Объединение
union([], [], []) :- !.
union([], [HB|TB], C) :- member(HB, C), !, union([], TB, C).
union([], [HB|TB], [HB|TC]) :- !, union([], TB, TC).
union([HA|TA], B, C) :- member(HA, C), !, union(TA, B, C).
union([HA|TA], B, [HA|TC]) :- !, union(TA, B, TC).
union([], B, B) :- !.
union([H|A], B, [H|C]) :- del_all(H, B, B1), union(A, B1, C).
______________________________________
Соседние файлы в папке Шумихин