1- 7_Прикладные методы искусственного интеллекта / задача1

%Определите предикат p(+U, +V, -L) - истинный тогда и только тогда, когда список L есть список
%всех элементов списка U, не содержащихся в списке V.
find(X,[X|_]).
find(X,[_|T]):-
find(X,T).

p([],_,[]).
p([X|T1],V,[X|T2]):-
not(find(X,V)),
p(T1,V,T2).
p([X|T],V,Z):-
find(X,V),
p(T,V,Z).