Discussion :

[meta10]

Bonjour,

J'ai un projet en prolog mais je suis actuellement bloqué sur une question.

J'ai des faits qui sont définis comme suit :

Code :

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

1
2
3
4
5
6
7
noeud(Index0, personne0).
noeud(Index1,personne1).
noeud...
 
lien(Index0,Index4).
lien(Index0,Index1).
lien...

Et je voudrai un prédicat intermédiaires(personne0,personne1,N) qui me renvoie dans N le nombre d'amis intermédiaires entre personne0 et personne1.

Merci d'avance pour vos réponses !

[Trap D]

Je voudrais savoir ce que vous avez tenté

[meta10]

Bonjour Trap,

J'ai tenté ça :

Code prolog :

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

1
2
3
4
5
6
7
8
9
10
intermediaires(Nom1,Nom2,N) :-
    Nom1 == Nom2, N = 0;
 
    setof(X,noeud(X,Nom1),L1),
    nth0(0,L1,Index1),
    setof(Z,noeud(Z,Nom3),L3),
    nth0(0,L3,Index3),
 
        (lien(Index1,Index3); lien(Index3,Index1)),
        intermediaires(Nom3,Nom2,N1), N is N1+1.

[Trap D]

Bonjour
Avant de continuer, je veux être sûr

• une personne ne peut appartenir qu'à un seul noeud(X, Personne)
• un index ne peut appartenir qu'à un seul noeud.

En gros on ne peut pas avoir

noeud(index0, personne0).
noeud(index0, personne1).

ni

noeud(index0, personne0).
noeud(index1, personne0).

[meta10]

Oui c'est exactement ça !

[Trap D]

Ok, donc c'est assez simple
Cas de base, il existe un lien entre les deux index des personnes 1 et 2. (au passage dans la base de faits, il faut écrire noeud(index0, personne0). avec un 'i' minuscule à index et non pas noeud(Index0, personne0).

Code :

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

1
2
3
4
5
intermediaires(Nom1,Nom2,0) :-
   noeud(X, Nom1),
   lien(X,Y),
   noeud(Y, Nom2),
   !.

Il faut envisager le cas ou lien(X,Y) n'existe pas mais lien(Y,X) existe.
Ensuite on envisage les intermédiaires

Code :

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

1
2
3
4
5
intermediaires(Nom1,Nom2,N) :-
    noeud(X, Nom1),
    lien(X,Y),
    noeud(Y, NomTemp),
    ....

Je vous laisse écrire la suite. Attention aux cycles possibles

[meta10]

Merci beaucoup Trap ça marche. Voilà ce que j'ai mis !

Code prolog :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
intermediaires(Nom1,Nom2,0) :-
	noeud(X,Nom1),
	lien(X,Y),
	noeud(Y,Nom2), !.
 
intermediaires(Nom1,Nom2,N) :-
	noeud(X,Nom1),
	lien(X,Y),
	noeud(Y,NomTemp),
	intermediaires(NomTemp,Nom2,N1), N is N1+1.

Par contre, le prédicat est orienté j'aimerai bien qu'il soit non orienté.
En gros :

intermédiaires(Nom1,Nom2,N) := intermédiaires(Nom2,Nom1,N).

Merci encore !