[LISP函数]：任意多层表的展开

fsxm

[php]
(defun list-nt (lst / l0)
  (while (progn
           (setq l0 lst)
           (setq lst (apply 'append
                            (mapcar '(lambda (x)
                                       (if (listp x)
                                         x
                                         (list x)
                                       )
                                     )
                                    lst
                            )
                     )
           )
           (not (equal l0 lst))
         )
  )
  l0
)

[/php]
。。。。。。。。。。。。
命令: !l
(1 ((2 2) (4 5 (2))) 3 (4 5) 5 6)
命令: (list-nt l)
(1 2 2 4 5 2 3 4 5 5 6)

xyp1964

2. [FONT=courier new](defun ListAll (tlst / lst)
   
3.   (defun aaa (tlst)
   
4.     (foreach b tlst
   
5.       (if (listp b)
   
6.         (aaa b)
   
7.         (setq lst (cons b lst))
   
8.       )
   
9.     )
   
10.     lst
    
11.   )
    
12.   (if (listp tlst)
    
13.     (if        (setq lst (aaa tlst))
    
14.       (reverse lst)
    
15.     )
    
16.   )
    
17. )[/FONT]

[FONT=courier new](defun ListAll (tlst / lst)<br />   (defun aaa (tlst)<br />     (foreach b tlst<br />       (if (listp b)<br />         (aaa b)<br />         (setq lst (cons b lst))<br />       )<br />     )<br />     lst<br />   )<br />   (if (listp tlst)<br />     (if        (setq lst (aaa tlst))<br />       (reverse lst)<br />     )<br />   )<br /> )[/FONT]

taner

院长的比较快！