Данo ориентированный граф произвольно. удалитe узел " i" вместе сo всеми узлами , которые доступны из "i".

@olgabr · Регистрация: 14.05.2013

Студворк — интернет-сервис помощи студентам

Данo ориентированный граф произвольно. удалитe узел " i" вместе сo всеми узлами , которые доступны из "i".

Добавлено через 15 минут
решить в LISP

@Catstail · 11.06.2013, 20:33

А каким образом задан граф?

@olgabr · 11.06.2013, 21:34 **[ТС]**

любой, можно взять оделныи случ

@Catstail · 13.06.2013, 19:53

Ну, раз обозначения могут быть любыми, будем представлять граф списком списков. В каждом списке первая вершина - опорная, остальные смежные с опорной.

Граф, представленный на миниатюре 1, представляется списком:

Lisp

1	((1 2 3) (2 3) (4 1 2 3))

А граф, представленный на миниатюре 2 - списком:

Lisp

1	((2 3) (4 2 3))

Теперь удаление вершины v из графа graph программируется так:

Lisp

(defun del-v (v graph)
    (mapcar #'(lambda (x) (remove v x)) 
                 (remove-if #'(lambda (y) (eq (car y) v)) graph)))
 
(del-v 1 '((1 2 3) (2 3) (4 1 3 2)))
 
==> ((2 3) (4 3 2))

@olgabr 0 / 0 / 0 Регистрация: 14.05.2013 Сообщений: 14
		1
	Данo ориентированный граф произвольно. удалитe узел " i" вместе сo всеми узлами , которые доступны из "i". 11.06.2013, 19:55. Показов 1019. Ответов 3 Метки нет (Все метки) Данo ориентированный граф произвольно. удалитe узел " i" вместе сo всеми узлами , которые доступны из "i". Добавлено через 15 минут решить в LISP 0

@Catstail Модератор 35517 / 19993 / 4185 Регистрация: 12.02.2012 Сообщений: 33,172 Записей в блоге: 13
	11.06.2013, 20:33	2
	А каким образом задан граф? 0

@olgabr 0 / 0 / 0 Регистрация: 14.05.2013 Сообщений: 14
	11.06.2013, 21:34 [ТС]	3
	любой, можно взять оделныи случ 0

	13.06.2013, 19:53

Опции темы