再次请教一个表的问题

434939575

2. (defun c:tt ()
   
3.   (setq a '(101 201 301 401))
   
4.   (setq b '(102 202 302 402))
   
5.   (setq c '(103 203))
   
6.   (setq d '(104 204 304 ))
   
7.   (setq aa (list a b c d))
   
8.   
   
9.   (setq yy(mapcar '(lambda (x)
   
10.        (car x)
    
11.      )
    
12.     aa
    
13.   ));我只会到这里了 (101 102 103 104)
    
14.       )
    
15. ;希望结果
    
16. ((101 102 103 104)(201 202 203 204)(301 302 304)(401 402 ))

(defun c:tt ()<br />   (setq a '(101 201 301 401))<br />   (setq b '(102 202 302 402))<br />   (setq c '(103 203))<br />   (setq d '(104 204 304 ))<br />   (setq aa (list a b c d))<br />   <br />   (setq yy(mapcar '(lambda (x)<br />        (car x)<br />      )<br />     aa<br />   ));我只会到这里了 (101 102 103 104)<br />       )<br /> ;希望结果<br /> ((101 102 103 104)(201 202 203 204)(301 302 304)(401 402 ))

感谢！

cable2004

2. (defun c:tt ()
   
3.   (setq a '(101 201 301 401))
   
4.   (setq b '(102 202 302 402))
   
5.   (setq c '(103 203  ))
   
6.   (setq d '(104 204 304))
   
7.   (setq i (apply 'max (mapcar '(lambda (e)(length e)) (list a b c d))) lst nil)
   
8.   (mapcar '(lambda (e)(vl-remove nil e)) (apply 'mapcar (cons 'list (mapcar '(lambda (e)(if (= i (length e)) e (progn (repeat (- i (length e)) (setq lst (cons nil lst))) (setq dd (append e lst)) (setq lst nil) dd)) )(list a b c d)))))
   
9.       )

(defun c:tt ()<br />   (setq a '(101 201 301 401))<br />   (setq b '(102 202 302 402))<br />   (setq c '(103 203  ))<br />   (setq d '(104 204 304))<br />   (setq i (apply 'max (mapcar '(lambda (e)(length e)) (list a b c d))) lst nil)<br />   (mapcar '(lambda (e)(vl-remove nil e)) (apply 'mapcar (cons 'list (mapcar '(lambda (e)(if (= i (length e)) e (progn (repeat (- i (length e)) (setq lst (cons nil lst))) (setq dd (append e lst)) (setq lst nil) dd)) )(list a b c d)))))<br />       )

nzl1116

1. (defun tt (/ aa bb cc)
   
2.   (setq aa '((101 201 301 401) (102 202 302 402) (103 203) (104 204 304)))
   
3.   (setq cc nil)
   
4.   (while aa
   
5.     (setq bb (mapcar 'car aa))
   
6.     (setq aa (vl-remove nil (mapcar 'cdr aa)))
   
7.     (setq cc (cons bb cc))
   
8.   )
   
9.   (reverse cc)
   
10. )

(defun tt (/ aa bb cc)<br />   (setq aa '((101 201 301 401) (102 202 302 402) (103 203) (104 204 304)))<br />   (setq cc nil)<br />   (while aa<br />     (setq bb (mapcar 'car aa))<br />     (setq aa (vl-remove nil (mapcar 'cdr aa)))<br />     (setq cc (cons bb cc))<br />   )<br />   (reverse cc)<br /> )

llsheng_73

1. (defun tt(aa / e)
   
2.   (repeat(apply'max(mapcar'length aa))
   
3.     (setq e(cons(mapcar'car aa)e)
   
4.           aa(vl-remove'nil(mapcar'cdr aa))))
   
5.   (reverse e)
   
6.   )

(defun tt(aa / e)<br />   (repeat(apply'max(mapcar'length aa))<br />     (setq e(cons(mapcar'car aa)e)<br />           aa(vl-remove'nil(mapcar'cdr aa))))<br />   (reverse e)<br />   )

1. (defun tt(aa / e)
   
2.   (while(setq e(cons(mapcar'car aa)e)
   
3.        aa(vl-remove'nil(mapcar'cdr aa))))
   
4.   (reverse e))

(defun tt(aa / e)<br />   (while(setq e(cons(mapcar'car aa)e)<br />        aa(vl-remove'nil(mapcar'cdr aa))))<br />   (reverse e))

(tt'((101 201 301 401) (102 202 302 402) (103 203) (104 204 304)))
==>((101 102 103 104) (201 202 203 204) (301 302 304) (401 402))

易云网络

nzl1116 发表于 2015-8-2 18:35

(mapcar 'cdr aa)和(vl-remove nil (mapcar 'cdr aa))我测试结果一样，那为什么还要加vl-remove函数呢？请指教

易云网络

补充一个图片

易云网络

知道了 没有数据的时候 有的值会这NIL

守仁格竹GM

2. (defun tt (aa / bb)
   
3.   (while aa
   
4.     (setq bb (append bb (list(mapcar 'car aa))))
   
5.     (setq aa (vl-remove nil (mapcar 'cdr aa)))
   
6.   )
   
7.   bb
   
8. )
   
9. (defun tt (aa / n)
   
10.   (setq n (apply 'max (mapcar 'length aa)))
    
11.   (mapcar
    
12.     '(lambda(y) (vl-remove nil y))
    
13.     (apply 'mapcar
    
14.            (cons 'list
    
15.                  (mapcar
    
16.                    '(lambda(x)
    
17.                       (repeat (- n (length x)) (setq x (append x '(nil))))
    
18.                       x
    
19.                    )
    
20.                    aa
    
21.                  )
    
22.            )
    
23.     )
    
24.   )
    
25. )
    

(defun tt (aa / bb)<br />   (while aa<br />     (setq bb (append bb (list(mapcar 'car aa))))<br />     (setq aa (vl-remove nil (mapcar 'cdr aa))) <br />   )<br />   bb<br /> )<br /> (defun tt (aa / n)<br />   (setq n (apply 'max (mapcar 'length aa)))<br />   (mapcar<br />     '(lambda(y) (vl-remove nil y))<br />     (apply 'mapcar<br />            (cons 'list<br />                  (mapcar<br />                    '(lambda(x)<br />                       (repeat (- n (length x)) (setq x (append x '(nil))))<br />                       x<br />                    )<br />                    aa<br />                  )<br />            )<br />     )<br />   )<br /> )<br />

同楼上2位仁兄一样