求函数，如何实现不同列表间的数据相加-相减？看谁的程序更精简！！

革天明

(setq lst1 (list ((x0 y0) A)
                 ((x1 y1) A)
                 ((x2 y2) A)
                 ((x3 y3) A)
                 ((x4 y4) A)
                 ((x5 y5) A)
           )
)
(setq lst2 (list B0 B1 B2 B3 B4 B5))
===>
(setq lst1 (list ((x0+B0 y0) A)
                 ((x1+B1 y1) A)
                 ((x2+B2 y2) A)
                 ((x3+B3 y3) A)
                 ((x4+B4 y4) A)
                 ((x5+B5 y5) A)
           )
)
也就是表2中的元素与表1中对应元素的---第一个小表的---第一个元素相加
大家多多参与啊！

革天明

目前也在写，有思路，二楼写我的算法

qjchen

:) 参与学习一下，暂时没考虑容错，出门去了。

1. 
   
2. (mapcar
   
3.   '(lambda (x y)
   
4.      (list (list (+ (car (car x)) y) (cadr (car x))) (cadr x))
   
5.    )
   
6.   a b
   
7. )
   
8. 
   
9. 
   

复制代码

测试代码

2. 
   
3. 
   
4. (setq a (list (list (list 1 1) 2) (list (list 2 3) 4) (list (list 5 6) 7)))
   
5. (setq b (list 6 7 8))
   
6. (mapcar
   
7.   '(lambda (x y)
   
8.      (list (list (+ (car (car x)) y) (cadr (car x))) (cadr x))
   
9.    )
   
10.   a b
    
11. )
    
12. 
    

<br /> <br /> (setq a (list (list (list 1 1) 2) (list (list 2 3) 4) (list (list 5 6) 7)))<br /> (setq b (list 6 7 8))<br /> (mapcar<br />   '(lambda (x y)<br />      (list (list (+ (car (car x)) y) (cadr (car x))) (cadr x))<br />    )<br />   a b<br /> )<br /> <br />

xshrimp

1. 
   
2. (mapcar '(lambda(x y)(list(list(+(caar x)y)(cadar x))(cadr x)))lst1 lst2)
   

复制代码

革天明

请教下面代码为何不正确，两个list必须等长吗？求第二个表中每个元素在第一个表中出现的次数。
(setq lst (mapcar '(lambda (x y)
                     (- (length x) (length (vl-remove y x)))
                   )
                  '(0 1 3 2 5 4 3 2 1 6 5 2 4 3 1 0 2 1 0 5 4 3)
                  '(0 1 2 3 4 5 6)
          )
)

革天明

[caoyin]<longfin@126.com>  19:47:29
(setq LST '(0 1 3 2 5 4 3 2 1 6 5 2 4 3 1 0 2 1 0 5 4 3)
      LNG (length LST)
)
(mapcar '(lambda (x)
           (- LNG (length (vl-remove x LST)))
         )
        '(0 1 2 3 4 5 6)
)
下面是我的代码
(setq lst (mapcar '(lambda (x y)
                     (- (length x) (length (vl-remove y x)))
                   )
                  '(0 1 3 2 5 4 3 2 1 6 5 2 4 3 1 0 2 1 0 5 4 3)
                  '(0 1 2 3 4 5 6)
          )
)
出错的原因在于当y取0时，x此时取的是0,(vl-remove y x)这个时候x不是表，就出错了
所以还是caoyin的代码好