list - 使用foreach，将每个元素添加到列表而不是编写，Prolog

Question

我目前有一个事实数据库，其中列出了相应疾病的症状，如下所示是一个片段

symptom(smallpox,fever).
symptom(smallpox,rash).
symptom(shingles,fever).
symptom(shingles,headache).
symptom(tetanus,hypertonia).

我的部分代码使用这一行

findall(Disease,symptom(Disease,Symptom),Possibles)

我现在可以为每种疾病可能性制作一个列表，但是我需要为输入的不同症状的每种可能性创建一个列表。例如，目前如果我输入“发烧”然后输入“高张力”，我会得到一个包含“天花、带状疱疹”的列表和另一个包含“破伤风”的列表，当它循环回来时。我怎样才能制作一个连续的列表？

标签： listrecursionforeachprolog