%% Demo coming from http://clwww.essex.ac.uk/course/LG519/2-facts/index_18.html
%%
%% Please load this file into SWI-Prolog
%%
%% Sam's likes and dislikes in food
%%
%% Considering the following will give some practice
%% in thinking about backtracking.
%%
%% You can also run this demo online at
%% http://swish.swi-prolog.org/?code=https://github.com/SWI-Prolog/swipl-devel/raw/master/demo/likes.pl&q=likes(sam,Food).

/** <examples>
?- likes(sam,dahl).
?- likes(sam,chop_suey).
?- likes(sam,pizza).
?- likes(sam,chips).
?- likes(sam,curry).
*/


%Sam Starts
likes(sam,Food) :-
    indian(Food),
    mild(Food).
likes(sam,Food) :-
    chinese(Food).
likes(sam,Food) :-
    italian(Food).
likes(sam,chips).
likes(sam,vat).
likes(sam,Food) :-
    bangladeshi(Food).

not_like(sam,food(spicy,grill)).
not_like(sam,Food) :-
    sour(Food),
    made_of_mango(Food).

dislike(sam,Food) :-
    bangladeshi(Food),
    made_of_dhonepata(Food).
dislike(sam,shosha).
dislike(sam,food(biriyani,elachi)).



%John starts

likes(john,Food) :-
    italian(Food),
    cake(Food).
likes(john,Food) :-
    indian(Food).
not_like(john,Food):-
    bangladeshi(Food),
    made_of_dhonepata(Food).
dislike(john,Food):-
    italian(Food),
    made_of_onion(Food).



%mary Starts

likes(mary,Food) :-
    italian(Food),
    made_of_onion(Food).
likes(mary,Food) :-
    bangladeshi(Food).


not_like(mary,kurma).
not_like(mary,chow_mein).
not_like(mary,Food) :-
    indian(Food).
dislike(mary,potato).
dislike(mary,Food):-
    sour(Food).






%data set indian

indian(curry).
indian(dahl).
indian(tandoori).
indian(kurma).

%data set Mild

mild(dahl).
mild(tandoori).
mild(kurma).

%data set Chinese

chinese(chow_mein).
chinese(chop_suey).
chinese(sweet_and_sour).

%data set italian

italian(pizza).
italian(spaghetti).
italian(panzenella).
italian(focaccia).
italian(lasagna).
italian(tiramisu).

%data set bangladeshi

bangladeshi(parata).
bangladeshi(panta_vat).
bangladeshi(hilsa_curry).
bangladeshi(dhal).
bangladeshi(fish).
bangladeshi(vorta).

%data set sour

sour(morobba).
sour(duba_teler_acar).
sour(amlokier_acar).
sour(jolpai_er_acar).

%dataset made of

made_of_mango(morobba).
made_of_dhonepata(dhal).
made_of_dhonepata(vorta).
made_of_onion(panzenella).
cake(tiramisu).