Comparer une liste avec une liste de mots

Version imprimable

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:

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:

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....

Une possibilité :

Code:

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:

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

28/07/2020, 00h30
neophyte007

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

Code:

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