====== Set intersection ======
{{tag>set_algebra}}
===== Description =====
Finding the intersection of two sets

**Source**:  PROLOG str. 191 Wydawnictwo PLJ Warszawa 1991 ISBN 83-85190-63-5
===== Download =====
Program source code: {{set_intersection.pl}}
===== Listing =====
<code prolog>
czesc_wsp([], X, []).
czesc_wsp([X |R], Y, [X|Z]) :- member(X, Y), !, czesc_wsp(R, Y, Z).
czesc_wsp([X|R], Y, Z) :- czesc_wsp(R, Y, Z).

czesc_wsp([1, 2, 8], [2, 5, 6, 8], C).</code>
===== Comments =====