https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=259640&view=findpost&p=2142495 Sun, 14 Dec 2008 07:00:12 +0000 https://forum.sources.ru/index.php?showtopic=259640&view=findpost&p=2142495 OlyA8 Lisp https://forum.sources.ru/index.php?showtopic=259640&view=findpost&p=2142403 Sat, 13 Dec 2008 21:16:09 +0000 https://forum.sources.ru/index.php?showtopic=259640&view=findpost&p=2142403 0 1 2
3 4 5
6 7
(0 1 2 3 4 5 6 7 b).
вот как у меня выводится
(breadth-first-search '(0 1 2 3 4 5 6 b 7))
""Najdeno (0 1 2 3 4 5 6 7 B) za 3 shaga.
Rasshiril 9 uzla, hranil maximum 5 uzlov."


А как сделать так чтобы и сами шаги перебора выводились, то есть когда меняет местами цифры - это выводить как бы по шагам.

вот, часть кода.
[CODE]

(defun successors (grid)
"Return a list of new grids consisting of all possible moves from
GRID."
(delete nil (list (up grid)
(down grid)
(left grid)
(right grid))))

(defun finished? (grid)
"Return T if GRID is in perfect order with the 'hole' at the end,
NIL otherwise."
(equal grid '(0 1 2 3 4 5 6 7 b)))

(defun breadth-first-search (start)
(let ((open (list start)) ; the list of nodes to be examined
(closed (list)) ; the list of nodes already examined
(steps 0) ; number of iterations
(expanded 0) ; total number of nodes expanded
(stored 0)) ; max number of nodes stored at any one time
(loop while open do
(let ((x (pop open)))
(when (finished? x)
(return (format nil "Najdeno ~a za ~a shaga.
Rasshiril ~a uzla, hranil maximum ~a uzlov." x steps expanded stored)))
(incf steps)
(pushnew x closed :test #'equal)
(let ((successors (successors x)))
(incf expanded (length successors))
(setq successors
(delete-if (lambda (a)
(or (find a open :test #'equal)
(find a closed :test #'equal)))
successors))
(setq open (append open successors))
(setq stored (max stored (length open))))))))

Если мало комментариев - поясню, просто билась с не долго так, вот очень прошу помочь доделать! если что - в ответ тоже что нибудь помогу! просто вот досталась задачка))]]> OlyA8 Lisp