apply和mapcar的用法

繁花落叶

下面是apply和mapcar的一段代码，我想求教各位能人，这里面的apply和mapcar各是怎么执行的呢？ 希望懂得人指导下，谢谢。

;-------------------------------------------------
;从点列表(point list)得到坐标范围(coordinate extents).
;例如:
(defun GetExtents (plist /)
  (list
    (apply 'mapcar (cons 'min plist))
    (apply 'mapcar (cons 'max plist))
  )
)
(GetExtents '((1 0 0) (2 2 0) (1 2 0) (3 4 0)))

longcashman

重慶崽兒 发表于 2014-1-25 22:22
(apply ’function list)
参数

第一个问题
mapcar 的参数是( 函数 一系列表)
(min (l1)(l2)(l3)(l4))就是这样的形式

第二个问题
mapcar最让初学者迷惑的地方是因为范例容易让人误解
$ (mapcar '(lambda (x)  (+ x 3) )  '(10 20 30) ) =>(13 23 33)
如果再加一个范例
$ (mapcar '(lambda (x)  (+ x y) )  '(10 20 30) '(1 2  3))=> (11 22 33)
就也许更清楚了
因为mapcar是把所有表的相同位置的元素取出来作为参数交给函数运算然后返回每次结果构成的新表
上例就是(list (+ 10 3)(+ 20 3)(+ 30 3))
而AUDESK的范例容易让人误会仅仅是把表中的每个元素做为参数，交给函数运算然后返回结果构成的表

所以这个(mapcar 'min '(1 0 0) '(2 2 1) '(1 2 1) '(3 4 0))
就是(list (min 1 2 1 3)  (min 0 2 2 4) (min 0 1 1 0))=>(1 0 0)

yarp

这是那位牛人写的代码哎，又学一招。

feng582304

太妙了。。。

Gu_xl

(apply 'mapcar (cons 'min '((1 0 0) (2 2 0) (1 2 0) (3 4 0))))
==>
(mapcar 'min '(1 0 0) '(2 2 0) '(1 2 0) '(3 4 0))
==>
(list (min 1 2 1 3) (min 0 2 2 4) (min 0 0 0 0))

zyhandw

确实牛哎，顶！！

Andyhon

以 plist 内有四个点为例
(apply 'mapcar (cons 'min plist))
展开 ==>
(mapcar 'min (car plist) (cadr plist) (caddr plist) (cadddr plist))

更多点时...
(mapcar 'min (car plist) (cadr plist) (caddr plist) (cadddr plist) ....)

但用 (apply 'mapcar ....) 就免去了展开 plist

繁花落叶

明经热心的人挺多的，谢谢Gu_xl 和Andyhon的解释。

cable2004

谢谢Gu_xl 和Andyhon的解释

bzhjl

高手！谢谢Gu_xl 和Andyhon的解析~！

重慶崽兒

Andyhon 发表于 2012-10-26 08:52
以 plist 内有四个点为例
(apply 'mapcar (cons 'min plist))
展开 ==>

(apply ’function list)
参数

’function
函数，可以是表示 defun 或 lambda 表达式的符号。
list
表。如果函数不接收参数，则该参数为 nil。

其中，mapcar就是其中的函数，而(cons 'min plist)就是其中的list，想问下大大，为什么mapcar的函数会是“min”呢，还有就是mapcar中的list参数又是什么呢？还请大大解答！谢谢！