几个精妙apply mapcar append 操作表 案例

liuhe

1. 
   

复制代码

2. (setq lst1 '(1 2 3 4)
   
3.       lst2 '(5 6 7 8))
   
4. (apply 'append (mapcar 'list lst1 lst2))
   
5. (1 5 2 6 3 7 4 8)
   
6. 
   
7. (setq m '((0 1 2) (3 4 5) (6 7 8)))
   
8. (apply 'mapcar (cons 'list m))
   
9. (
   
10.     (0 3 6)
    
11.     (1 4 7)
    
12.     (2 5 8)
    
13. )
    
14. 
    
15. 
    
16. (setq m '((1 2 3 4) (5 6 7 8)))
    
17. (apply 'mapcar (cons 'list m))
    
18. (
    
19.     (1 5)
    
20.     (2 6)
    
21.     (3 7)
    
22.     (4 8)
    
23. )
    
24. (apply 'append (apply 'mapcar (cons 'list m)))
    
25. (LH:nentseltonentselp
    
26.   '((0.0393701 0.0 0.0)
    
27.     (0.0 0.0393701 0.0)
    
28.     (0.0 0.0 0.0393701)
    
29.     (16.1693 14.733 0.0)
    
30.    )
    
31. 
    
32. )
    
33. ((0.0393701 0.0 0.0 16.1693)
    
34.   (0.0 0.0393701 0.0 14.733)
    
35.   (0.0 0.0 0.0393701 0.0)
    
36.   (0.0 0.0 0.0 1.0)
    
37. )
    
38. (defun LH:nentseltonentselp (lst / i)
    
39.   (setq i -1)
    
40.   (append
    
41.     (mapcar
    
42.       (function
    
43.   (lambda (x) (append x (list (nth (setq i (1+ i)) (last lst)))))
    
44.       )
    
45.       (reverse (cdr (reverse lst)))
    
46.     )
    
47.     (list (list 0.0 0.0 0.0 1.0))
    
48.   )
    
49. )

(setq lst1 '(1 2 3 4)<br />       lst2 '(5 6 7 8))<br /> (apply 'append (mapcar 'list lst1 lst2))<br /> (1 5 2 6 3 7 4 8)<br /> <br /> (setq m '((0 1 2) (3 4 5) (6 7 8)))<br /> (apply 'mapcar (cons 'list m))<br /> (<br />     (0 3 6)<br />     (1 4 7)<br />     (2 5 8)<br /> )<br /> <br /> <br /> (setq m '((1 2 3 4) (5 6 7 8)))<br /> (apply 'mapcar (cons 'list m))<br /> (<br />     (1 5)<br />     (2 6)<br />     (3 7)<br />     (4 8)<br /> )<br /> (apply 'append (apply 'mapcar (cons 'list m)))<br /> (LH:nentseltonentselp<br />   '((0.0393701 0.0 0.0)<br />     (0.0 0.0393701 0.0)<br />     (0.0 0.0 0.0393701)<br />     (16.1693 14.733 0.0)<br />    )<br /> <br /> )<br /> ((0.0393701 0.0 0.0 16.1693)<br />   (0.0 0.0393701 0.0 14.733)<br />   (0.0 0.0 0.0393701 0.0)<br />   (0.0 0.0 0.0 1.0)<br /> )<br /> (defun LH:nentseltonentselp (lst / i)<br />   (setq i -1)<br />   (append<br />     (mapcar<br />       (function<br />   (lambda (x) (append x (list (nth (setq i (1+ i)) (last lst)))))<br />       )<br />       (reverse (cdr (reverse lst)))<br />     )<br />     (list (list 0.0 0.0 0.0 1.0))<br />   )<br /> )

(1 5 2 6 3 7 4 8)代码来至于   lee-mac

guosheyang

后两个叫做转置矩阵

guankuiwu

很强

Bao_lai

这个腻害腻害了

树櫴希德

要慢慢细品  不懂

紫苏炒黄瓜

不错，精简

hhh454

代码很简短，处理数据归纳提取的好办法

花开富贵

这个是处理增广矩阵的吧，强啊

vbnewer

关于apply mapcar lambda总是有些似懂非懂，需要这样类似的例子来帮助理解。