:-[a7/fcl].

% Who likes foods with the same color as foods that Mary likes?
q0(Who) :- likes(mary,F), food(F), color(F, C), food(F2), color(F2,C), likes(Who,F2).

% Who likes carrots?
q1(Who) :- true.

% Who likes baseball and a food?
q2(Who) :- true.

% Who likes baseball and a red food?
q3(Who) :- true.

% Who likes somebody who likes baseball?
q4(Who) :- true.

% What foods cost more than a Big Mac?
q5(Food) :- true.

% What are things that somebody likes and that cost more than an apple?
q6(What) :- true.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% NOTE: The following queries should use only the facts in a7/things.pl
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

:-[a7/things].

% What are all the things?
q7(Thing) :- true.

% What are the colors of non-foods?
q8(Color) :- true.

% What are colors that are a color of both a food and a non-food?
q9(Color) :- true.

% What foods are not the same color as broccoli?
q10(Food) :- true.
