如何在prolog中将元素添加到列表中

Question

我想使用以下方法将列表的第一个元素添加到另一个列表中：

findall(X, nth1(1, List1, X,), List2).

但返回false。

有人知道为什么？

Answer 1

简单：

ListFirst = [a, b, c],
ListSecond = [d, e, f],
ListFirst = [Head|Tail],
ListSecondNew = [Head|ListSecond].

结果：

ListFirst = [a,b,c],
ListSecond = [d,e,f],
Head = a,
Tail = [b,c],
ListSecondNew = [a,d,e,f].

Answer 2

如果语法正确(nth1/3中没有第三个逗号(，并且我们放入了一些具体的列表，那么它似乎可以满足您的要求：

?- findall(X, nth1(1, [a,b,c], X), List2).
List2 = [a].

如果你实际上有两个列表，并且你正试图生成第三个列表，那么这可以起作用：

?- List2=[x,y,z], List1=[a,b,c], [H|_]=List1, append([H],List2,Output).
List2 = [x, y, z],
List1 = [a, b, c],
H = a,
Output = [a, x, y, z].