Найти вершины которые создают цикл Эйлера. Prolog

[Wild_klas]

Здравствуйте. Мне нужно создать программу, которая будет находить список вершин создающих цикл Эйлера на языке программирования Prolog. Программа должна работать с любым графом.

Эйлеров цикл — это маршрут, проходящий по всем рёбрам графа по одному разу.

Вот что у меня получилось:

graph([a-b,a-c,a-d,b-c,c-d,c-e,d-e]).
 
edge(X,Y,[X-Y|_]).
edge(X,Y,[Y-X|_]).
edge(X,Y,[_|T]) :- edge(X,Y,T).
 
erase(X,Y,[X-Y|T],T).
erase(X,Y,[Y-X|T],T).
erase(X,Y,[H|T],[H|T2]) :- erase(X,Y,T,T2).
 
route(X,Y,P,[X-Y]) :- edge(X,Y,P).
route(X,Y,P,[X-Z|V]) :- edge(X,Z,P), erase(X,Z,P,P2), route(Z,Y,P2,V).
 
e_chain(X,P,M) :-
    graph(P),
    route(X,Y,P,M),
    X \= Y,
    length(P,L),
    length(M,L).

Пример работы прикреплен к посту.

Но все проблема в том что он работает только с этим графом. То есть если задать другой граф, то она не работает. (даже если в этом графе есть Эйлеров цикл)

Как сделать чтобы программа была универсальная? помогите пожалуйста.