Помогите!!!
Пусть граф представлен списком вершин (вершины помечены атомами) и списком ребер (каждое ребро, в свою очередь, список из двух вершин).

Необходимо написать функцию, которая, учитывая список вершин, переводит список ребер в список списков смежных вершин указанного далее вида.
Например, исходный граф задан:
1) список вершин (b c e d a f);
2) список ребер ((b c) (с с) (a d) (e d) (e a)).

Необходимая функция преобразует эту информацию в список списков смежных вершин:
((b ©) (c (b c)) (e (d a)) (d (e a)) (a (d e)) (f nil))


Есть следущая функция которую можно использовать:


Функция (nbg x p). Эта функция будет выдавать список всех соседей вершины x, не входящих в путь p.

Алгоритм:
• просматривая все ребра графа, выбираем вершины, соседние для х (если какое-то ребро не инцидентно вершине x, то в создаваемый список добавляем nil);
• удаляем из полученного списка nil и элементы, принадлежащие пути p.

(defun ngb (x p) (remove-if #'(lambda (y) (or (null y) (member y p)))
(mapcar
#'(lambda (s)
(cond
((eql x (first s)) (second s))
((eql x (second s)) (first s))
(t nil)
)
)
r)
)
)

>(setq v '(1 2 3 4 5 6))
(setq r '((1 2) (2 3) (3 1) (1 4) (4 5) (5 6) (6 1)))

> (ngb 1 r)
(2 3 4 6)