在Prolog中检索项目

Question

假设我有这个知识库：

step('pancakes', 1, 'mix butter and sugar in a bowl', [butter, sugar], [bowl]). 
step('pancakes', 2, 'add eggs', [eggs], []). 
step('pancakes', 3, 'mix flour and baking powder', [flour, baking powder], []).

如何创建一个谓词来检索食谱所有步骤的所有配料？

因此，如果我要创建一个规则retrieveIngredients(X,Y).并询问retrieveIngredients('pancakes',Y).，我如何才能使其检索Y = ['butter','eggs','flour', 'baking powder'].

Answer 1

简单地使用findall/3

retrieveIngredients(R,Y):-
    findall(A,step(R,_,_,A,_),Y).

?- retrieveIngredients('pancakes',Y).
Y = [[butter, sugar], [eggs], [flour, baking_powder]]

如果想要展平列表，可以添加一个对flatten/2的调用。如果要删除重复项，请添加对sort/2的调用。请注意，您需要在第三个step/5事实中将baking powder重写为baking_powder (不带空格)。