Prolog,谓词交换1到0和0到1并将它们放在一个列表中

Question

Prolog新手.我想要一个交换1到0和0到1的程序并回答这个问题:

?- swap([1,1,0,1,0,0,0,1], L2).
L2 = [0,0,1,0,1,1,1,0]

Answer 1

complement(0, 1).
complement(1, 0).

swap(X, Y) :- maplist(complement, X, Y).