Операции над множествами - Prolog

Формулировка задачи:

Всем доброе время суток! Случились трудности с написанием программы. На прологе нужно написать функцию пересечения множеств и функцию разности множеств. Кто-то может помочь? Буду невероятно благодарна!

Код к задаче: «Операции над множествами - Prolog»

textual
cross(L,[],L).
cross(L,[H|T],L1):-member(H,L),
                          cross(L,T,L1).
cross(L,[H|T],[H|L1]):-cross(L,T,L1).
 
diff([],_,[]).
diff([H|T],L,T1):-member(H,L),
                       diff(T,L,T1).
diff([H|T],L,[H|T1]):-diff(T,L,T1).
 
member(H,[H|_]).
member(H,[_|T]):-member(H,T).

9   голосов, оценка 3.889 из 5


СОХРАНИТЬ ССЫЛКУ