Итогом
| Код |
(defun testThree (x y z)
(if (< (+ x y) z) (+ x y) z)
)
(defun eqThree ( x y z)
(or (= x y) (or (= y z) (= x z)))
)
(defun initialArray (graphD graphS)
(setq MAX 4)
(loop for k from 0 to MAX do
(loop for i from 0 to MAX do
(loop for j from 0 to MAX when (not (eqThree i j k)) do
(setq x (aref graphD k j))
(setq y (aref graphD i k))
(setq z (aref graphD i j))
(setq _ (aref graphS i j))
(setf (aref graphD i j) (testThree x y z))
(setf (aref graphS i j) (if (= (aref graphD i j) z) _ k))
)
)
)
(cons graphD graphS)
)
(defun findPath (fromNode toNode graphS step)
(setq tempToNode (aref graphS fromNode toNode))
(print (format nil "On enter: step=~D fromNode =~D toNode =~D temp =~D" step fromNode toNode tempToNode))
(if (= toNode tempToNode)
(list fromNode toNode)
(list (findPath fromNode tempToNode graphS (+ 1 step)) (findPath tempToNode toNode graphS (+ 1 step))) )
)
(setq testGraphD (make-array '(5 5) :initial-contents '(
('NO 3 10 999 9999)
(3 'NO 9999 5 9999)
(10 9999 'NO 6 15)
(9999 5 6 'NO 4)
(9999 9999 9999 4 'NO)
))
)
(setq testGraphS (make-array '(5 5) :initial-contents '(
('NO 1 2 3 4)
(0 'NO 2 3 4)
(0 1 'NO 3 4)
(0 1 2 'NO 4)
(0 1 2 3 'NO)
))
)
(if (= (testThree 1 2 4) 3) (print '(test 1 passed)) (print "test 1 NOT passed"))
(if (= (testThree 4 2 5) 5) (print '(test 2 passed)) (print "test 2 NPT passed"))
(setq res (initialArray testGraphD testGraphS))
(print (findPath 0 4 (cdr res) 0))
|
вывод - (((0 1) (1 3)) (3 4))
что есть правильно. Понимаю что косячно, но не знаю:
1. Как добавить то что вернула функция в список, что бы не было лишних скобок
2. Как убрать функцию initialArray внутрь findPath (что бы она была видна только оттуда), в таком случае можно было бы вызвать так (findPath 0 4 testGraphD)
3. Как определить количество строк/колонок в массиве (не нужна былабы строка (setq MAX 4))
4. Можно ли сделать так (setq (x y z) (1 2 3)), что бы в результате х=1, у=2, z=3 (это для красоты)?
Это в общем решение в императивном стиле. Как сделать в функциональном - не знаю. Придумаю - напишу сюда.
Кстати, может кто покритикует код?
|
