Discussion :

[warez29]

Bonjour tout le monde,

j'ai un tp prolog où je dois donner la personne ayant le plus de compétences hors le prédicat récursif me renvoi toujours une variable(X).

voici quelques prédicats que j'ai écrit:
-est_repertorie/1 prend en argument le nom d’une personne et rend vrai si cette personne apparait dans la base de compétences, faux/´echec sinon.-
-est_utile/1 prend en argument le nom d’une personne et rend vrai si cette personne est compétente pour au-moins une tâche.
-degre_competence/2 prend en argument le nom d’une personne,et rend un entier correspondant au nombre de tâches que sait faire cette personne.
-lemeilleur/2 prend en argument une liste de personnes, et rend le nom de la personne qui sait faire le plus de tâches.

c'est ce dernier qui me pose problème.

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
19
20
21
22
23
24
    competences(pierre,L):-L=[t1,t2,t3,t4].
    competences(jean,L):-L=[t5,t6].
    competences(luc,L):-L=[t2,t3,t6].
    competences(paul,L):-L=[t7,t8,t9].
    competences(marc,L):-L=[t2,t5,t9].
    competences(clown,L):-L=[].
 
 
 
 
    est_repertorie(X):-competences(X,_).
 
    est_utile(X):-competences(X,L),L\=[].
 
    compte([],0).
    compte([_|L],X):-compte(L,Z),X is Z+1.
    degre_competence(X,N):-competences(X,L),compte(L,N).
 
    %Question qui me pose probleme et ou je dois donner la personne ayant le plus de competences
    lemeilleur2([],_,_).
    lemeilleur2([T|Q],_,N):- degre_competence(T,N2), N2>N, lemeilleur2(Q,T,N2).
    lemeilleur2([T|Q],X,N):- degre_competence(T,N2), N2=<N, lemeilleur2(Q,X,N).
 
    lemeilleur([T|Q],X):-degre_competence(T,N), lemeilleur2(Q,T,N).

Quelqu'un peut il m'aider à corriger l'erreur ?
Merci d'avance.

[Trap D]

Up svp

Y'a pas le feu

Une possibilité est d'utiliser des prédicats évolués :

Code :

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

1
2
3
4
5
6
7
8
le_meilleur(Name) :-
	% d'abord on collecte toutes les infos utiles pour la suite
	% on obtient une liste [Nombre_de_compétences - Nom_de_la_personne, ...]
	bagof(L-X, C^(competences(X, C), length(C, L)), Comp),
	% on trie cette liste du plus petitbnombre de compétences au plus grand
	sort(Comp, SortComp),
	% n inverse cette liste et on ne conserve que le premier nom
	reverse(SortComp, [_-Name | _]).

Je compte sur toi pour te renseigner sur le prédicat bagof, et l'utilisation du ^
Une petite lecture ici peut-être intéressante.

PS : pour ce qui est de ton prédicat lemeilleur/2, ton compilo Prolog devrait te signaler que X est un "singleton variable", ce qui veut dire que X n'est pas unifié et ne sert à rien dans ce prédicat.
Ton prédicat compte/2 existe déjà en Prolog, c'est length/2 .

[warez29]

Merci beaucoup pour cette aide mais j'aimerais faire sans les prédicats avancés car c'est ce qui est demandé.
(5 - Ecrire un prédicat Prolog lemeilleur/2 qui prend en argument une liste de personnes, et qui
rend le nom de la personne qui sait faire le plus de tâches). Il faut faire du récursif à partir des prédicats que j'ai écrit précédemment.

[Trap D]

Ok, dans ce cas, je vais te donner la méthode :
Tu prends le premier de liste, et tu considères que pour le debut, c'est le meilleur, donc tu gardes son nom et le nombre de ses compétences.
Ensuite, tu vas ecrire un predicat meilleur, qui prendra en compte le reste de la liste, les deux précédents renseignements et le nom du gagnant à la fin : recherche_du_meilleur(Rest_de_liste, Meilleur_Courant, Nombre_de_competences, Gagant).
A chaque tour, tu compares le nombre de compétences du premier de la liste restante avec le meilleur courant, et en fonction du résultat tu fabriques l'appel suivant à recherche_du_meilleur.
Lorsque la liste est terminée, tu unifies le meilleur courant avec le gagnant.
C'est simple, non ?

[warez29]

D'accord merci je vais essayer.

[warez29]

mais dans ce que vous me dites, le prédicat meilleur n'est pas d'arité 2 ?

[Trap D]

D'après ce que vous me dites, il y a
- un prédicat lemeilleur d'arité 2
- un prédicat annexe que je vous propose recherche_du_meilleur récursif et d'arité 4. Ce prédicat sera appelé par lemeilleur/2.

[warez29]

Ah d'accord j'avais mal compris. J'ai essayer et ça ne marche toujours pas. je désespère.

[Trap D]

Avec du code, je vous pourrais vous indiquer où ça cloche.

[warez29]

Code :

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

1
2
3
4
5
lemeilleur2([],T,_,T).
lemeilleur2([T|Q],Z,N,_):- degre_competence(T,N2), N2>N,lemeilleur2(Q,Z,N2,T).
lemeilleur2([T|Q],Z,N,X):- degre_competence(T,N2), N2=<N, lemeilleur2(Q,Z,N,X).
 
lemeilleur([T|Q],X):-degre_competence(T,N), lemeilleur2(Q,T,N,X).

[Trap D]

Ben voilà !
Un clic sur