TP_Prolog/TP1-2/tp1_1.pl

	%***************
	% Les personnes
	%***************
	
personne(edouard,   homme,  72, retraite(commandant(armee_de_terre)), nice).
personne(agathe,    femme,  58, musicienne(blues),                    nice).
personne(gaston,    homme,  65, retraite(chauffeur(semvat)),          balma).
personne(simone,    femme,  65, retraite(cableur(airbus)),            balma).
personne(georges,   homme,  28, animateur(club_med),                  toulouse).
personne(marie_cecile,femme,35, clerc_de_notaire,                     toulouse).
personne(octave,    homme,  40, huissier,                             nice).
personne(elton,     homme,  10, ecolier,                              toulouse).
personne(vanessa,   femme,  5,  ecolier,                              toulouse).

	%*************************
	% Les relations de parente
	%*************************
	
parent(edouard, marie_cecile).
parent(agathe,  marie_cecile).
parent(edouard, octave).
parent(agathe,  octave).
parent(gaston,  georges).
parent(simone,  georges).
parent(georges, elton).
parent(georges, vanessa).
parent(marie_cecile, elton).
parent(marie_cecile, vanessa).

	%********
	% Regles
	%********
	
pere(Pere, Enfant) :-
   personne(Pere, homme, _, _, _),
   parent(Pere, Enfant).
	
fille(Fille, Parent) :-
   personne(Fille, femme, _, _, _),
   parent(Parent, Fille).
   
%-------------------------------
% Ajouter vos nouvelles regles a partir dici
%-------------------------------  
 nice(Personne) :-
    personne(Personne, _, _, _, nice).

 memeVille(Personne) :-
    personne(Personne,_,_,_,Ville),
    once(parent(Parent_1,Personne)),
    personne(Parent_1,_,_,_,Ville),
    parent(Parent_2,Personne),
    personne(Parent_2,_,_,_,Ville),
    not(Parent_1 = Parent_2).

mere(Mere, Enfant) :-
   personne(Mere, femme, _, _, _),
   parent(Mere, Enfant).
	
fils(Fils, Parent) :-
   personne(Fils, homme, _, _, _),
   parent(Parent, Fils).

parent_d_ecolier(P) :-
    personne(P,_,_,_,_),
    once((parent(P,E), 
    personne(E,_,_,ecolier,_))).