(XD::Table:Compose)表格转置，列元素组合成一个子表

Lispboy

2. 
   
3. ;|
   
4. 表格转置，列元素组合成一个子表
   
5. 
   
6. 命令: (setq a '(("1-1" "1-2" "1-3")("2-1" "2-2" "2-3")("3-1" "3-2" "3-3")))
   
7. (("1-1" "1-2" "1-3") ("2-1" "2-2" "2-3") ("3-1" "3-2" "3-3"))
   
8. 
   
9. 命令: (XD::Table:Compose lst)
   
10. (("1-1" "2-1" "3-1") ("1-2" "2-2" "3-2") ("1-3" "2-3" "3-3"))
    
11. 
    
12. |;
    
13. (defun XD::Table:Compose (lst)
    
14.   (apply
    
15.     'mapcar
    
16.     (cons 'list lst)
    
17.   )
    
18. )
    
19. 
    

<br /> ;|<br /> 表格转置，列元素组合成一个子表<br /> <br /> 命令: (setq a '(("1-1" "1-2" "1-3")("2-1" "2-2" "2-3")("3-1" "3-2" "3-3")))<br /> (("1-1" "1-2" "1-3") ("2-1" "2-2" "2-3") ("3-1" "3-2" "3-3"))<br /> <br /> 命令: (XD::Table:Compose lst)<br /> (("1-1" "2-1" "3-1") ("1-2" "2-2" "3-2") ("1-3" "2-3" "3-3"))<br /> <br /> |;<br /> (defun XD::Table:Compose (lst)<br />   (apply<br />     'mapcar<br />     (cons 'list lst)<br />   )<br /> )<br /> <br />