请教双mapcar的用法

434939575

请教各位朋友一个问题。关于MAPCAR 的关系。

2. (defun T12 (l / x)
   
3.   (mapcar   ;;11
   
4.     '(lambda (a)
   
5.        (mapcar  ;;2
   
6.    '(lambda (b)
   
7.       (setq x (cons (abs (- b a)) x))
   
8.     );;'(lambda (b)
   
9.    (setq l (cdr l))
   
10.        );;2
    
11.      );;'(lambda (a)
    
12.     l
    
13.   );;11
    
14.   (vl-sort x '<)
    
15. )

(defun T12 (l / x)<br />   (mapcar   ;;11<br />     '(lambda (a)<br />        (mapcar  ;;2<br />    '(lambda (b)<br />       (setq x (cons (abs (- b a)) x))<br />     );;'(lambda (b)<br />    (setq l (cdr l))<br />        );;2<br />      );;'(lambda (a)<br />     l<br />   );;11<br />   (vl-sort x '<)<br /> )

和
(apply '(lambda (x y z)           (* x (- y z))         )         '(5 20 14) )//30

前面的(defun T12 (l / x)里面MAPCAR分开用的妙处是什么啊！。。

(lambda (x y z) 这个好理解
先谢谢了！

鱼与熊掌

看着晕，可能是为了减少代码量

434939575

鱼与熊掌 发表于 2015-1-29 00:12
看着晕，可能是为了减少代码量

多谢关照！

longcashman

就是表中每个数字对其余数字求差的绝对值
(5 8 1)
第一个mapcar 分别对581运算
第二个mapcar a=5 b分别= 8 1； a=8 b= 1
最后排序把重复的结果去掉
用在需要---表中每个元素与其余元素分别运算的时候
把(vl-sort ...)这行注释掉就可以看到运算的过程

鱼与熊掌

如果不是写代码的人，容易晕。分行写容易读

434939575

longcashman 发表于 2015-1-29 10:30
就是表中每个数字对其余数字求差的绝对值
(5 8 1)
第一个mapcar 分别对581运算

谢谢指点！但是2个mapcar这样嵌套。不太理解。慢慢去理解。

longcashman

相当于这个
(defun tt (l / x)
(while l
(setq a (car l))
(setq l (cdr l))
(foreach b l
(setq x (cons (abs (- b a)) x)))) (vl-sort x '<))

434939575

longcashman 发表于 2015-1-29 11:10
相当于这个
(defun tt (l / x)
(while l

再次感谢光临！基本理解了