mapcar lambda函数求解

空间里是否

看lee-mac的函数SelectionSet BoundingBox里面的其中一个不理解，求解答(mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list l1 l2))主要是里面的apply函数不是很理解，求解答

地址：http://lee-mac.com/ssboundingbox.html

空间里是否

用google搜到了
http://forums.autodesk.com/t5/Vi ... mapcar/td-p/2111142

wowan1314

楼主明白了吗？我糊涂了！求翻译！

空间里是否

看3楼，和我看的代码一样的道理，有解释

wowan1314

有解释所以要求翻译！！！

ll_j

wowan1314 发表于 2013-4-10 22:55
有解释所以要求翻译！！！

或许你用ACAD的Vlisp追踪一下可以更清楚。
说实在的，想一想都犯糊涂，还是根据自己的理解来做吧，毕竟那是大师的东西，要全面掌握还是有难度的。

不死猫

mapcar 当做 foreach
lambda 当做 defun

这样就很容易理解了

wowan1314

• ;;假设 (setq l1  '((1 3 2) (2 3 4) (3 4 5)))
• ;;     (setq l2 '(( 3 4 2) (3 5 1) (4 6 7)))
  

(mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list l1 l2))
/=mapcar min l1 及 mapcar max l2 而是等价于(list (apply 'mapcar (cons 'min l1)) (apply 'mapcar (cons 'max l2)))

而(mapcar '1+ '(1 2 3))=((1+ 1) (1+ 2) (1+ 3))  

我把复杂的问题想简单化了！ 导致错误。

（mapcar 'max l2）与(apply 'mapcar (cons 'max l2)))是不同的！！！！
(setq l2 '(( 3 4 2) (3 5 1) (4 6 7)))
(MAPCAR 'MAX '( 3 4 2) '(3 5 1) '(4 6 7))= (apply 'mapcar (cons 'max l2))

Gu_xl

1. ;;假设 (setq l1  '((1 3 2) (2 3 4) (3 4 5)))
   
2. ;;     (setq l2 '(( 3 4 2) (3 5 1) (4 6 7)))
   
3. (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
   
4.         '(min max)
   
5.         (list l1 l2)
   
6.         )
   
7. 结果：'((1 3 2) (4 6 7))
   
8. 上式等价与==>
   
9. (list
   
10.   ((lambda (a b) (apply 'mapcar (cons a b)))
    
11.     'min l1)
    
12.   ((lambda (a b) (apply 'mapcar (cons a b)))
    
13.     'max l2)
    
14.   )
    
15. 上式等价与==>
    
16. (list
    
17.   (apply 'mapcar (cons 'min l1))
    
18.   (apply 'mapcar (cons 'max l2))
    
19.   )
    
20. 上式等价与==>
    
21. (list
    
22.   (apply 'mapcar (list 'min '(1 3 2) '(2 3 4) '(3 4 5)))
    
23.   (apply 'mapcar (list 'max '( 3 4 2) '(3 5 1) '(4 6 7)))
    
24.   )
    
25. 上式等价与==>
    
26. (list
    
27.   (list
    
28.   (min 1 2 3)
    
29.   (min 3 3 4)
    
30.   (min 2 4 5)
    
31.   )
    
32.   (list
    
33.     (max 3 3 4)
    
34.     (max 4 5 6)
    
35.     (max 2 1 7)
    
36.     )
    
37.   )

;;假设 (setq l1  '((1 3 2) (2 3 4) (3 4 5)))<br /> ;;     (setq l2 '(( 3 4 2) (3 5 1) (4 6 7)))<br /> (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))<br />         '(min max)<br />         (list l1 l2)<br />         )<br /> 结果：'((1 3 2) (4 6 7))<br /> 上式等价与==> <br /> (list<br />   ((lambda (a b) (apply 'mapcar (cons a b)))<br />     'min l1)<br />   ((lambda (a b) (apply 'mapcar (cons a b)))<br />     'max l2)<br />   )<br /> 上式等价与==> <br /> (list<br />   (apply 'mapcar (cons 'min l1))<br />   (apply 'mapcar (cons 'max l2))<br />   )<br /> 上式等价与==> <br /> (list<br />   (apply 'mapcar (list 'min '(1 3 2) '(2 3 4) '(3 4 5)))<br />   (apply 'mapcar (list 'max '( 3 4 2) '(3 5 1) '(4 6 7)))<br />   )<br /> 上式等价与==> <br /> (list<br />   (list<br />   (min 1 2 3)<br />   (min 3 3 4)<br />   (min 2 4 5)<br />   )<br />   (list<br />     (max 3 3 4)<br />     (max 4 5 6)<br />     (max 2 1 7)<br />     )<br />   )

wowan1314

(apply 'mapcar (cons '+ plist))/=（mapcar '+ plist）我弄错了应该=（mapcar '+ 去括号的plisT）