lisp自动递归（续）

最新推荐文章于 2018-10-26 22:19:52 发布

yuan_da_xing

最新推荐文章于 2018-10-26 22:19:52 发布

阅读量712

点赞数

本文链接：https://blog.csdn.net/yuan_da_xing/article/details/8247671

版权

树的遍历

(defvar *saved* nil)

(=defun re-start ()
  (if *saved*
      (funcall (pop *saved*))
      (=values 'done)))

(=defun dft-node (tree)
  (cond ((null tree) (re-start))
	((atom tree) (=values tree))
	(t (push #'(lambda () (dft-node (cdr tree))) *saved*)
	   (dft-node (car tree)))))

(=defun dft2 (tree)
  (setq *saved* nil)
  (=bind (node) (dft-node tree)
    (cond ((eq node 'done) (=values nil))
	  (t (princ node)
	     (re-start)))))

执行结果如下