;递归处理子表，所有子表元素放在第一层

ymcui2005

(defun list-n (lst)
  (if (null x)(setq st '()))
  (mapcar '(lambda (x)
            (if (listp x)
              (list-n x)
              (setq st (cons x st))
            )
          )
  lst
  )
  (reverse st)
)

sh_h

谢谢楼主分享！！！

炫翔

下面这样可以确保 st 局部变量遗漏

2. (defun list-n(lst / func st)
   
3.         (defun func (lst)
   
4.                 (if (null x)(setq st '()))
   
5.                 (foreach x lst
   
6.                         (if (listp x)
   
7.                                 (func x)
   
8.                                 (setq st (cons x st))
   
9.                         )
   
10.                 )
    
11.                 (reverse st)
    
12.         )
    
13.         (func lst)
    
14. )

(defun list-n(lst / func st)<br />         (defun func (lst)<br />                 (if (null x)(setq st '()))<br />                 (foreach x lst<br />                         (if (listp x)<br />                                 (func x)<br />                                 (setq st (cons x st))<br />                         )<br />                 )<br />                 (reverse st)<br />         )<br />         (func lst)<br /> )