Нахождение компонент связности графа на Lisp - исходник+описание алгоритма

Для начала дадим определение тому, что принято называть компонентой связности графа.
• Итак, рассмотрим некоторое семейство подграфов графа G.
• Граф Hmax из этого семейства называется максимальным, если он не содержится ни в каком другом графе из рассматриваемого семейства.
• Максимальный связный подграф графа G называется связной компонентой G (компонентой связности G). В связном графе имеется единственная связная компонента, совпадающая с самим графом.
Вычисление компонент связности часто реализуется на основе некоторой модификации алгоритма обхода в глубину.
Предположим, что есть функция DEPTHFIRST – отвечающая за обход в глубину. Заметим, что когда к списку просмотренных вершин VISITED добавляется новая вершина, список PATH

Элементы теории графов в профессиональной литературе часто рассматриваются абстрактно, не приводятся алгоритмов решения задач, а уж тем более их реализации. Часто обходятся стороной и прикладные вопросы, в то время как теория графов находит широкое применение, например, при проектировании домов и сооружений, инженерных сетей, линий электропередач и т.п. Также не обходятся без применения теории графов в химии, программировании, экономике, при организации движения транспорта.
Цель данной работы – построение алгоритма поиска компонент связности неориентированного графа и его реализация на Lisp.
В качестве методологической основы были использованы работы Крюкова А.П., Радионова А.Я., Шаблыгина Е.М., посвященные программированию на Лиспе, а также книга Баррона Д. о рекурсивных методах в программировании.

В ходе работы было выполнено требуемое задание и получен конечный продукт – непосредственная программная реализация. Данная работа позволила повторить базовые знания о графах, их представлении в памяти, правилах и алгоритмах обхода. В ходе работы был использован обход в глубину с целью его модификации в алгоритм вывода компонент связности графа.
Также результатом данной работы является повторение и практическое использование знаний о синтаксисе языка Lisp.