Найти все вершины графа, достижимые из заданной - Prolog

Формулировка задачи:

помогите пожалуйста с графами(( Найти все вершины графа, достижимые из заданной

g(a,b,3).
g(b,c,3).
g(c,e,5).
g(e,d,10).
g(a,d,5).
 
member(_X,[_X|_]): - !.
member(X,[_|Tail]):- member(X,Tail).
 
path(A,Z,Path):- path1(A,[Z],Path).
 
path1(A,[A|Path1],[A|Path1]).
path1(A,[Y|Path1],Path):- g(X,Y), not(member(X,Path1)),
path1(A,[X,Y|Path1],Path).
?-path(a).

Решение задачи: «Найти все вершины графа, достижимые из заданной»

Листинг программы

g2(A, B, V) :- g(A, B, V); g(B, A, V).

Объяснение кода листинга программы

Код представляет собой определение рекурсивной процедуры g2, которая использует правило вывода, чтобы найти все вершины графа, достижимые из заданной. Процедура g2 состоит из двух частей, которые представлены двумя правилами вывода.

g2(A, B, V) :- g(A, B, V). Это правило говорит о том, что если вершина B достижима из вершины A с помощью некоторого значения V, то мы можем заключить, что вершина A также достижима из вершины B с использованием того же значения V.
g2(A, B, V) :- g(B, A, V). Это правило говорит о том, что если вершина B достижима из вершины A с помощью некоторого значения V, то мы можем заключить, что вершина A также достижима из вершины B с использованием того же значения V. Таким образом, процедура g2 использует эти два правила для рекурсивного поиска всех вершин графа, достижимых из заданной.