Discussion :

[neophyte007]

Bonjour tout le monde!
Alors j'ai une liste que je remplis avec des mots , je l'appelle Description
et j'ai une base de données que je mets sous la forme de liste de liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
personnages([[napoleon,reel,politicien,homme,europeen,mort],[trump,homme,reel,politicien,blond,americain,vivant],
[zidane,homme,reel,footballer,europeen,vivant],[tupac,homme,reel,rappeur,americain,mort],[hercules,homme,hero,aventurier,jeune,mort],
[sirene,fictif,femme,mort]]).

Supposons que Description=[reel, politicien,europpen,homme]
Je voudrais trouver justement le nom correspondant qui se trouve dans ma liste de liste personnages, sachant que dans chaque sous liste sa tete correspond au nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
%compte nombre élements d'une liste
compte([],0).
compte([_|R],N) :- compte(R,N1), N is N1+1, N>0.
 
recherche([],[],0,_).
recherche([[T|Q2]|Q],Input,Nbcommuns,T):-
intersection(Q2,Input,R),
compte(R,N),
(N >= Nbcommuns -> recherche(Q,Input,N,Tete;
recherche(Q,Input,Nbcommuns,T)
).

L'idée serait donc de faire l'intersection du reste de la liste avec ma liste Descritpion , de compterle nombre d'élement communs puis de garder la liste de la base de données ayant le plus délement communs et densuite renvoyer sa tete correspondant ainsi au nom
Mais là ca ne larche pas....

[Trap D]

Une possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
personnages([[napoleon,reel,politicien,homme,europeen,mort],[trump,homme,reel,politicien,blond,americain,vivant],
[zidane,homme,reel,footballer,europeen,vivant],[tupac,homme,reel,rappeur,americain,mort],[hercules,homme,hero,aventurier,jeune,mort],
[sirene,fictif,femme,mort]]).
 
% on n'a pas besoin de connaitre l'intersection
% uniquement sa longueur
% on garde aussi le nom du personnage
test(In, [Head|Tail], [N, Head]) :-
    intersection(In, Tail, Rest),
    length(Rest, N).
 
ma_selection(In, Out) :-
    personnages(Lst),
    maplist(test(In), Lst, Ret),
    % on trie les résultats selon la longueur de la réponse
    sort(Ret, Ret1),
    % on ne garde que l'élément important de la réponse
    last(Ret1, [_, Out]).

Résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
?- ma_selection([politicien, reel], X).
X = trump.

A faire : Cette requête donne en fait deux réponses, trump et napoleon, a toi de modifier pour obtenir la liste des deux noms

[neophyte007]

Ca marche, merci,j'ai bien analyser et compris!
Oui pour tout avoir j'ai fais cela par la suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

findall(Out,member([Nmax,Out],Ret1),Liste).