请教关于表的问题。

黄翔

有一个表'( (1 2)  ((3 4) (5 6))   (7 8)    (  ((9 10) (11 12))  (13 14)) )
期望得到的表

'((1 2) (3 4) (5 6)(7 8)(9 10 )( 11 12) (13 14) )
或
(1 2 3 4 5 6 7 8 9 10 11 12 13 14 )
该怎么写.谢谢..

自贡黄明儒

用循环或递归，遇到表就append

Andyhon

(defun flatten (lis / lis1 1st)
  (while lis
    (setq 1st(car lis))
    (cond
       ((atom 1st)
        (setq lis1 (cons 1st lis1)
              lis  (cdr lis)
        )
       )
       (T (setq lis (append 1st (cdr lis))))
    )
  )
  (reverse lis1)
)



Ref:
https://forums.autodesk.com/t5/v ... uzzle-2/td-p/893293

自贡黄明儒

1. (setq L '((1 2) ((3 4) (5 6)) (7 8) (((9 10) (11 12)) (13 14))))
   
2. (defun ww (L / A LST)
   
3.   (while L
   
4.     (setq a (car L))
   
5.     (setq L (cdr L))
   
6.     (if        (= (type a) 'LIST)
   
7.       (setq L (append a L))
   
8.       (setq Lst (cons a Lst))
   
9.     )
   
10.   )
    
11.   (reverse Lst)
    
12. )

(setq L '((1 2) ((3 4) (5 6)) (7 8) (((9 10) (11 12)) (13 14))))<br /> (defun ww (L / A LST)<br />   (while L<br />     (setq a (car L))<br />     (setq L (cdr L))<br />     (if        (= (type a) 'LIST)<br />       (setq L (append a L))<br />       (setq Lst (cons a Lst))<br />     )<br />   )<br />   (reverse Lst)<br /> )

第二种:

1. ;;(WW '((1 2) ((3 4) (5 6)) (7 8) (((9 10) (11 12)) (13 14)))) => (1 2 3 4 5 6 7 8 9 10 11 12 13 14)
   
2. ;;(WW '(1 2 3)) => (1 2 3)
   
3. (defun ww (L / A LST)
   
4.   (if L
   
5.     (progn
   
6.       (setq a (car L))
   
7.       (if (= (type a) 'LIST)
   
8.         (append (ww a) (ww (cdr L)))
   
9.         (cons a (ww (cdr L)))
   
10.       )
    
11.     )
    
12.   )
    
13. )

;;(WW '((1 2) ((3 4) (5 6)) (7 8) (((9 10) (11 12)) (13 14)))) => (1 2 3 4 5 6 7 8 9 10 11 12 13 14)<br /> ;;(WW '(1 2 3)) => (1 2 3)<br /> (defun ww (L / A LST)<br />   (if L<br />     (progn<br />       (setq a (car L))<br />       (if (= (type a) 'LIST)<br />         (append (ww a) (ww (cdr L)))<br />         (cons a (ww (cdr L)))<br />       )<br />     )<br />   )<br /> )

namezg

1. ;分解嵌套表(将多层表变为单层表)
   
2. ;(zg-flat (setq lst '((0 1 2) ((3 4) (5 6 7)) (8 9 10 11) (((12 13 14 15 16) (17 18)) (19 20)))))
   
3. ;(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20)
   
4. (defun zg-flat (lst)
   
5.    (if lst
   
6.        (append
   
7.       (if (= (type (car lst)) 'LIST)
   
8.         (zg-flat (car lst))
   
9.         (list (car lst))
   
10.       )
    
11.             (zg-flat (cdr lst))
    
12.     )
    
13.   )
    
14. )

;分解嵌套表(将多层表变为单层表)<br /> ;(zg-flat (setq lst '((0 1 2) ((3 4) (5 6 7)) (8 9 10 11) (((12 13 14 15 16) (17 18)) (19 20)))))<br /> ;(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20)<br /> (defun zg-flat (lst)<br />    (if lst<br />        (append <br />       (if (= (type (car lst)) 'LIST)<br />         (zg-flat (car lst))<br />         (list (car lst))<br />       )<br />             (zg-flat (cdr lst))<br />     )<br />   )<br /> )

mapple666

XUEXIE学习学习

nzl1116

1. (defun ttt (lst)
   
2.   (cond
   
3.     ((not lst) nil)
   
4.     ((atom (car lst)) (list lst))
   
5.     ((listp (caar lst)) (ttt (append (car Lst) (cdr lst))))
   
6.     (t (cons (car lst) (ttt (cdr lst))))
   
7.   )
   
8. )

(defun ttt (lst)<br />   (cond<br />     ((not lst) nil)<br />     ((atom (car lst)) (list lst))<br />     ((listp (caar lst)) (ttt (append (car Lst) (cdr lst))))<br />     (t (cons (car lst) (ttt (cdr lst))))<br />   )<br /> )

llsheng_73

1. (defun listall(l)
   
2.   (while(vl-some'listp l)
   
3.     (setq l(apply'append(mapcar'(lambda(x)(if(listp x)x(list x)))l))))
   
4.   l)

(defun listall(l)<br />   (while(vl-some'listp l)<br />     (setq l(apply'append(mapcar'(lambda(x)(if(listp x)x(list x)))l))))<br />   l)

namezg

(defun zg-flat (lst / newlst)
        (foreach x lst
               (if  (= (type x) 'LIST)
                        (setq newlst (append newlst (zg-flat x)))
                        (setq newlst (append newlst (list x)))
                )
        )
)

evayleung

学习学习楼上多位大师的，谢谢