还是关于表的组合问题

Lisphk

上次的问题，谢谢LL-J长老给打答案，代码简洁。现在又有问题了，对于表不是等长的，空的位置能填补上NIL吗？

如：(setq a '((1 2 3)(3 2) (1)))
       (apply 'mapcar (cons 'list a)) =>((1 3 1))

要想返回 '((1 3 1)( 2 2 nil)(3 nil nil))，有什么代码能简洁高效吗？

ayl1004

这样算不算

1. (setq Lst '((1 2 3) (3 2)(1))
   
2.       rLst nil
   
3. )
   
4. (repeat (apply
   
5.           'max
   
6.           (mapcar
   
7.             'length
   
8.             Lst
   
9.           )
   
10.         )
    
11.   (setq rLst (cons (mapcar
    
12.                      'car
    
13.                      Lst
    
14.                    ) rLst
    
15.              )
    
16.         Lst (mapcar
    
17.               'cdr
    
18.               Lst
    
19.             )
    
20.   )
    
21. )
    
22. (reverse rLst)
    
23. 
    

(setq Lst '((1 2 3) (3 2)(1))<br />       rLst nil<br /> )<br /> (repeat (apply<br />           'max<br />           (mapcar<br />             'length<br />             Lst<br />           )<br />         )<br />   (setq rLst (cons (mapcar<br />                      'car<br />                      Lst<br />                    ) rLst<br />              )<br />         Lst (mapcar<br />               'cdr<br />               Lst<br />             )<br />   )<br /> )<br /> (reverse rLst)<br /> <br />

Lisphk

ayl1004 发表于 2013-8-6 22:02
这样算不算

谢谢，看着挺算的，都是基本函数，不知道其他朋友还有别的写法吗？

牢固

1. (defun f (a / l)
   
2.   (while (vl-some '(lambda (x) x) a)
   
3.     (setq l (cons (mapcar 'car a) l)
   
4.     a (mapcar 'cdr a)
   
5.     )
   
6.   )
   
7.   (reverse l)
   
8. )

(defun f (a / l)<br />   (while (vl-some '(lambda (x) x) a)<br />     (setq l (cons (mapcar 'car a) l)<br />     a (mapcar 'cdr a)<br />     )<br />   )<br />   (reverse l)<br /> )

qyming1996

vl-some
是什么函数