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

[Wild_klas]

Здравствуйте. Помогите пожалуйста создать программу, которая будет находить список вершин создающих цикл Эйлера на языке программирования Lisp. Входные данные задаются в виде списка: ((a c) (a d) (b d) (b e) (c e))
Программа должна работать с любым графом, вне зависимости от того есть там этот цикл или нет.
Эйлеров цикл — это маршрут, проходящий по всем рёбрам графа по одному разу.

[Utkin]

Для этого есть теорема (или правило, не помню уже):

Ориентированный граф содержит эйлеров цикл тогда и только тогда, когда он сильно связан и для каждой вершины графа её полустепень захода равна её полустепени исхода, то есть в вершину входит столько же ребер, сколько из неё и выходит.

Вот и считай ребра.