写一个Prolog规则

Question

鉴于我已进入

maindish(thanksgiving, turkey). 
sidedish(thanksgiving,pie). 

进入事实库，我应该编写一个名为meal(Holiday, Food)的规则 - 这将确定在给定假日服务的食物类型。例如，如果询问感恩节，它将返回火鸡和馅饼作为选项。到目前为止，我有：

meal(Holiday, Food):- maindish(Holiday,Food), sidedish(Holiday,Food).
write('For the holiday:'), write(Holiday),write('the meal(s)are:'), write(Food),nl.

Answer 1

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

?- meal(thanksgiving, Foods).

尽管使用列表对固定结构数据进行建模并不是最佳的。