rencontres.txt

来自「A usefull introduction of basic usage, a」· 文本 代码 · 共 64 行

% Programmation Multi-Styles : approche relationnelle  (Alain Lucci IUT de Valence)
%----------------------------------------------------------------------------------



/*---------------------------*/
/* base agence de rencontres */
/*---------------------------*/

/*  homme( pseudo , taille , type_cheveux , type_age ) */
/*-----------------------------------------------------*/

homme(paul,grande,brun,mur).

homme(pierre,moyenne,blond,jeune).

homme(jean,petite,brun,mur).

/*  femme( pseudo , taille , type_cheveux , type_age ) */
/*-----------------------------------------------------*/

femme(marie,moyenne,blond,moyen).

femme(michele,petite,blond,jeune).

femme(aline,petite,brun,mur).

/* gouts( pseudo , type_musique , type_lecture , sport ) */
/*-------------------------------------------------------*/
 
gouts(paul,classique,aventure,natation).

gouts(pierre,pop,science-fiction,tennis).

gouts(jean,jazz,policier,tennis).

gouts(marie,m,aventure,natation).

gouts(michele,pop,science-fiction,S) :- dif(S,jogging).

gouts(aline,classique,aventure,natation).

/* recherche( pseudo , taille, type_cheveux, type_age ) */
/*------------------------------------------------------*/

recherche(paul,grande,roux,jeune).

recherche(pierre,T,blond,jeune) :- dif(T,grande).

recherche(jean,petite,blonde,moyen).

recherche(marie,grande,brun,moyen).

recherche(michele,moyenne,blond,jeune).

recherche(aline,moyenne,brun,mur).

/* utilitaires */
/*-------------*/

dif(X,Y):- X \==Y.

/*--------------------------------------------------------------*/