% Auteur:
% Date: 29/09/2010

gr(a,b,2).
gr(a,g,6).
gr(b,e,2).
gr(b,c,7).
gr(g,e,1).
gr(g,h,4).
gr(e,f,2).
gr(f,c,3).
gr(f,h,2).
gr(c,d,3).
gr(h,d,2).

%chemin en 1 arc
chemin(X,Y) :-
gr(X,Y,_).

%chemin en 2 arcs ou plus
chemin(X,Y) :-
gr(X,Z,_),
chemin(Z,Y).

%distance entre 2 sommets
distance(X,Y,D) :-
gr(X,Y,D).

%arcs multiples
distance(X,Y,D) :-
gr(X,Z,D1),
distance(Z,Y,D2),
D is D1+D2.