哪位老大能给个关于嵌套表的函数

longcashman

嵌套表层数不定或者说树
比如(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))

递归来递归去都搞蒙了
总是得不到结果

菡萏

所给示例和示例结果之间没有唯一的逻辑关系！

pxt2001

是不是这个意思？
;;|●功能：任意多层表展开，网友编写，不知道作者|;
(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)
    )
  )
)

goldwheat

pxt2001 发表于 2012-4-7 21:04
是不是这个意思？
;;|●功能：任意多层表展开，网友编写，不知道作者|;
(defun ListAll (tlst / lst)

这个我下载了，多谢pxt2001，多层展开表对我有用处。