xxxxxxxxxx
/*two arrays intersection*/
inter([], _, []).
inter([H1|T1], L2, [H1|Res]) :-
member(H1, L2),
inter(T1, L2, Res).
inter([_|T1], L2, Res) :-
inter(T1, L2, Res).
xxxxxxxxxx
/*three arrays intersection*/
inter([], _, _, []).
inter([H1|T1], L2, L3, [H1|Res]) :-
member(H1, L2),
member(H1, L3),
prunik(T1, L2, L3, Res).
inter([_|T1], L2, L3, Res) :-
prunik(T1, L2, L3, Res).