序言：查找偶数将它们添加到列表中

Question

编写谓词evenNumbers(L1, L2) ，如果列表L1包含随机整数，列表L2包含来自L1偶数整数，则为true。

例如：

?-evenNumbers ([2,1,-3,6,8,9], L2). 

»您的程序返回L2 = [2,6,8].

我的代码是：

    evenNumbers([],[]).
    evenNumbers([H|T],L):-
        integer(H),
        0 is H mod 2,
        append([H],L,L);
        evenNumbers(T,L).

Answer 1

您的代码有多个问题append([H],L,L); 将会停止递归并给您一个错误的列表，如果您的if-then-else语句也不正确，那么您可以这样写：

 evenNumbers([],[]).
 evenNumbers([H|T],L1):-
        integer(H),
        (H mod 2 =:=0 -> L1=[H|T1],evenNumbers(T,T1);
        evenNumbers(T,L1) ).

例：

?- evenNumbers([2,1,-3,6,8,9], L2).
L2 = [2, 6, 8].

编写它的另一种方式是：

evenNumbers(L1,L2):-findall(X,(member(X,L1), X mod 2=:=0),L2).