Finding the intersection of two sets
Source: PROLOG str. 191 Wydawnictwo PLJ Warszawa 1991 ISBN 83-85190-63-5
Program source code: set_intersection.pl
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).