Дать Правило Пролог

Question

Учитывая, что я вошел

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

в factbase, я должен написать правило под названием 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). 

хотя моделирование данных фиксированной структуры со списками не является оптимальным.