在Prolog中添加列表中的元素

Question

我想从列表中提取元素并将它们添加到另一个新列表中。我该怎么做 -

L=[['abc',18],['bcd',19],['def',20]],
nth1(Count,L,List1),
nth1(2,List1,Value),
**NOW I WANT TO PUT THIS Valie in another new list.So finally new list will have 
   New=[18,19,20]**

如何在新列表中添加元素？

Answer 1

使用地图列表可以实现同样的目的：

?- maplist(nth1(2), [['abc',18],['bcd',19],['def',20]], R).
R = [18, 19, 20].

nth/3的参数顺序是巧合吗？

Answer 2

假设您的教师希望您自己制定递归解决方案，您可以简单地说出这样的事情（给出您的示例数据）：

slurp( []         , []     ) .
slurp( [[_,X]|Xs] , [X|Ys] ) :- slurp(Xs,Ys) .

Answer 3

请参阅findall / 3和朋友

?- L=[['abc',18],['bcd',19],['def',20]], findall(E,member([_,E],L), R).
L = [[abc, 18], [bcd, 19], [def, 20]],
R = [18, 19, 20].