% -----------------------------------------------
%                    Exercice 1
%           Florian Lepot & Maxime Fabre
% -----------------------------------------------

% Question 1
% -------------------------

homme(jack, grande, blonds, mur).
homme(jean, moyenne, chatains, vieux).
homme(marc, moyenne, blonds, vieux).
homme(david, petite, chatains, mur).
homme(phillipe, grande, bruns, jeune).
homme(bobby, moyenne, bruns, jeune).
homme(marshall, moyenne, bruns, mur).
homme(geoffrey, grande, roux, mur).
homme(ken, petite, chatains, jeune).
homme(robert, petite, blonds, jeune).

femme(magalie, grande, blonds, mur).
femme(julie, moyenne, bruns, mur).
femme(marion, petite, chatains, mur).
femme(noemie, moyenne, chatains, vieux).
femme(lola, moyenne, blonds, vieux).
femme(casimira, grande, bruns, jeune).
femme(jeffry, grande, roux, mur).
femme(audrey, petite, chatains, jeune).
femme(natalie, moyenne, bruns, jeune).
femme(denise, petite, chatains, jeune).

gout(jack, classique, aventure, natation).
gout(bobby, classique, science-fiction, natation).
gout(geoffrey, classique, policier, tennis).
gout(jean, pop, aventure, jogging).
gout(david, pop, aventure, tennis).
gout(marc, pop, policier, tennis).
gout(marshall, jazz, science-fiction, tennis).
gout(magalie, jazz, policier, jogging).
gout(phillipe, jazz, science-fiction, jogging).
gout(ken, pop, policier, natation).
gout(julie, classique, aventure, natation).
gout(lola, pop, policier, tennis).
gout(robert, jazz, aventure, jogging).
gout(jeffry, jazz, aventure, natation).
gout(audrey, classique, science-fiction, jogging).
gout(denise, classique, science-fiction, jogging).
gout(noemie, pop, aventure, natation).
gout(marion, pop, aventure, tennis).
gout(casimira, jazz, aventure, tennis).
gout(natalie, classique, science-fiction, natation).

recherche(julie, grande, blonds, mur).
recherche(audrey, moyenne, chatains, vieux).
recherche(natalie, petite, chatains, mur).
recherche(geoffrey, grande, bruns, jeune).
recherche(bobby, moyenne, bruns, jeune).
recherche(marshall, moyenne, bruns, mur).
recherche(phillipe, grande, roux, mur).
recherche(ken, petite, chatains, jeune).
recherche(marc, moyenne, blonds, vieux).
recherche(robert, petite, blonds, jeune).
recherche(magalie, grande, blonds, mur).
recherche(jack, moyenne, bruns, mur).
recherche(lola, moyenne, blonds, vieux).
recherche(jeffry, grande, roux, mur).
recherche(jean, petite, chatains, jeune).
recherche(denise, petite, chatains,jeune).
recherche(noemie, moyenne, chatains, vieux).
recherche(marion, petite, chatains, mur).
recherche(casimira, grande, bruns, jeune).
recherche(david, moyenne, bruns, jeune).



% Question 2
% -------------------------

convient-physiquement(X, Y) :-
                            homme(X, T, C, A),
                            femme(Y, T2, C2, A2),
                            recherche(X, T2, C2, A2),
                            recherche(Y, T, C, A).

convient-physiquement(X, Y) :-
                            femme(X, T, C, A),
                            homme(Y, T2, C2, A2),
                            recherche(X, T2, C2, A2),
                            recherche(Y, T, C, A).



% Question 3
% -------------------------

% Retourne vrai si X = Y
meme-gout(X, Y) :-
                gout(X, M, L, S),
                gout(Y, M, L, S).



% Question 4
% -------------------------

assortis(X, Y) :-
                convient-physiquement(X, Y),
                meme-gout(X, Y).