list - 添加到序言中的列表

Question

在练习中，我需要做的第一件事是将一些事实，说明每个地方的存在，放入一个列表中。请有人帮助我。

example.
exists(place).
exists(place2).

到目前为止的代码：

listarB([]).
listarB([B|T]):- exists(B),listarB(T).

现在我试图获取列表列表。我需要的每个列表都作为我试图获得的每个地方的参数。
现在我有了地点列表，我试图获取每个地点的列表作为参数并将它们存储在另一个列表中（[HL|TL]）

到目前为止的代码：

listListBus([],[]).
listListBus([HB|TB],[HL|TL]) :-
   HB = base(_,[_|_],HL),
   listListBus(TB,TL).

score 0 · Accepted Answer

您应该使用findall/3来收集所有“存在”的地方：

listarB(L):-
  findall(B, exists(B), L).

1 回答 1