哪位老大能给个关于嵌套表的函数
嵌套表层数不定或者说树比如(1 2 (3 (4(5 6 (7 8 9)))))
可以得到所有从根节点到叶子的路径
((1 2)(1 3) (1 3 4 5) (1 3 4 6) (1 3 4 5 7 8) (1 3 4 5 7 9))
递归来递归去都搞蒙了
总是得不到结果
所给示例和示例结果之间没有唯一的逻辑关系！ 是不是这个意思？
;;|●功能：任意多层表展开，网友编写，不知道作者|;
(defun ListAll (tlst / lst)
(defun aaa (tlst)
(foreach b tlst
(if (listp b)
(aaa b)
(setq lst (cons b lst))
)
)
lst
)
(if (listp tlst)
(if (setq lst (aaa tlst))
(reverse lst)
)
)
) pxt2001 发表于 2012-4-7 21:04 static/image/common/back.gif
是不是这个意思？
;;|●功能：任意多层表展开，网友编写，不知道作者|;
(defun ListAll (tlst / lst)
这个我下载了，多谢pxt2001，多层展开表对我有用处。
页:
[1]