> 1 <

Автор Сообщение

RedlineX7

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#748   2009-11-24 19:44 GMT+3 часа(ов)      
defun F (Links &optional (Nodes nil) (acc nil))
(if Links
(if Nodes
((lambda (min_link)
((lambda (newNodes newacc)
(F
(CLEAN_from_Nodes_in_Links newNodes Links)
newNodes
newacc))
(cons (caddr min_link) Nodes)
(cons (cdr min_link) acc)))
((lambda (link_list)
(assoc (apply 'min (mapcar 'car link_list)) link_list))
(SELECT_from_Nodes_in_Links Nodes Links)))
((lambda (min_link)
(F
(remove min_link Links :test 'EQUAL)
(cdr min_link)
(cons (cdr min_link) acc)))
(assoc (apply 'min (mapcar 'car Links)) Links)))
acc))

(defun SELECT_from_Nodes_in_Links (Nodes Links)
(if Links
((lambda (elem result)
(if (member (cadr elem) Nodes)
(cons elem result)
result))
(car Links)
(SELECT_from_Nodes_in_Links Nodes (cdr Links)))))

(defun CLEAN_from_Nodes_in_Links (Nodes Links)
(if Links
((lambda (elem result)
((lambda (test)
(cond
((< test 2) (cons elem result))
((= test 2) (cons (cons (car elem) (reverse (cdr elem))) result))
((= test 3) result)))
(apply '+
(mapcar '*
'(1 2)
(mapcar
'(lambda (node)
(if (member node Nodes) 1 0))
(cdr elem))))))
(car Links)
(CLEAN_from_Nodes_in_Links Nodes (cdr Links)))))

Формат списка данных Links:
Код
((длина имя_узла1 имя_узла2)...)

Вызов функции:
Код
(F список_данных)

Результат - список пар узлов, входящих в кратчайшее остовное дерево
Код
((имя_узла1 имя_узла2)...)


Не мог ли кто нибуть объяснить алгоритм написаный на лиспе(что как программа делает)?
что делает SELECT_from_Nodes_in_Links эта функция?
что делает CLEAN_from_Nodes_in_Links эта функция?
Заранее благодарен!!!

VH

Members


Статус

289 сообщений

Где: ---
Род занятий:
Возраст:

#749   2009-11-24 19:58 GMT+3 часа(ов)      
Я могу объяснить, потому что этот текст создан мной.
А Вы с какой целью интересуетесь?

RedlineX7

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#750   2009-11-24 22:02 GMT+3 часа(ов)      
Хочу разобраться как оно работает!!!
Раскажи плиз ну очень надо!!!

gihar

Moderators


Статус

249 сообщений

Где: --- да вот он я? приехал уже из Катманду
Род занятий: конкретный
Возраст: 0

#763   2009-12-15 10:48 GMT+3 часа(ов)      
А не украл ли ты RedlineX7 эти священные письмена у Достойнеших (ибн-Прима и ибн-Краскала) ,
и теперь хочешь понять о чем в них говорится , дабы получить власть на Миром.
Это было точно последнее редактирование
> 1 <


Онлайн :

0 пользователь(ей), 24 гость(ей) :




Реклама на сайте: