协助编写 Prolog 规则答案

【问题标题】：Assistance writing a Prolog rule协助编写 Prolog 规则
【发布时间】：2014-12-01 03:30:45
【问题描述】：

鉴于我已将以下事实输入事实库。每种西迪菜都有两种成分：

maindish(thanksgiving, turkey). 
sidedish(thanksgiving,pie). 
ingredient(pie,spice).
ingredient(pie,sugar).

我已经编写了以下规则来为给定的假期退货：

meal(Holiday, [F1,F2]) :- maindish(Holiday,F1), sidedish(Holiday,F2).

?- meal(thanksgiving, Foods).

我正在尝试编写一个名为ingredientList 的规则，它将确定每个假期所需的成分类型。通过关联每个给定假期的菜肴和食材。

【问题讨论】：

请阅读the tour了解本网站的运作方式。

标签： prolog prolog-setof

【解决方案1】：

ingredientlist(Holiday, Ingredients) :-
   setof(Ingredient,
          Dishes^Dish^ ( meal(Holiday,Dishes),
                         member(Dish, Dishes),
                         ingredient(Dish, Ingredient) ),
         Ingredients).

【讨论】：