怎样将表内X相同的Y值累加

lht

如何表将ptn=((100 63)(90 86)(90 75)(90 63)(80 25)(80 52)(70 26))累加成ptn=((100 63)(90 224)(80 77)(70 26))

Gu_xl

回复 lht 的帖子

1. (defun c:tt(/ rtn)
   
2.   (setq ptn '((100 63)(90 86)(90 75)(90 63)(80 25)(80 52)(70 26)));累加成ptn=((100 63)(90 224)(80 77)(70 26))
   
3.   (while ptn
   
4.     (setq a (car ptn)
   
5.    ptn (cdr ptn)
   
6.    )
   
7.     (setq b (car a))
   
8.     (if (setq c (assoc b rtn))
   
9.       (progn
   
10. (setq c (list b (+ (cadr c) (cadr a))))
    
11. (setq rtn (subst c (assoc b rtn) rtn))
    
12. )
    
13.       (progn
    
14. (setq rtn (cons a rtn))
    
15. )
    
16.       )
    
17.       
    
18.     )
    
19.   (reverse rtn)
    
20.   )
    

(defun c:tt(/ rtn)<br />   (setq ptn '((100 63)(90 86)(90 75)(90 63)(80 25)(80 52)(70 26)));累加成ptn=((100 63)(90 224)(80 77)(70 26))<br />   (while ptn<br />     (setq a (car ptn)<br />    ptn (cdr ptn)<br />    )<br />     (setq b (car a))<br />     (if (setq c (assoc b rtn))<br />       (progn<br /> (setq c (list b (+ (cadr c) (cadr a))))<br /> (setq rtn (subst c (assoc b rtn) rtn))<br /> )<br />       (progn<br /> (setq rtn (cons a rtn))<br /> )<br />       )<br />       <br />     )<br />   (reverse rtn)<br />   )<br />

lht

谢谢大侠的帮忙!

yoyoho

感谢Gu_xl版主分享学习了!

mandala

感谢版主，学习了。

露水2

1. 
   
2. (defun c:test()
   
3. (setq lst '((100 63)(90 86)(90 75)(90 63)(80 25)(80 52)(70 26)));累加成ptn=((100 63)(90 224)(80 77)(70 26))
   
4. (setq nlst '())
   
5. (while lst
   
6.       (setq ahlst '()
   
7.             a (car (car lst))
   
8.       )
   
9.       (foreach x lst
   
10.             (setq b (car x))
    
11.   (if (= a b) (setq ahlst (cons (cadr x) ahlst)))
    
12. );foreach
    
13.     (setq nlst (cons (list a (apply '+ ahlst)) nlst)
    
14.          lst (vl-remove-if '(lambda(y) (= (car y) a)) lst)
    
15.    )
    
16.   );while
    
17.   (setq nlst (reverse nlst))
    
18.   )
    

<br /> (defun c:test()<br /> (setq lst '((100 63)(90 86)(90 75)(90 63)(80 25)(80 52)(70 26)));累加成ptn=((100 63)(90 224)(80 77)(70 26))<br /> (setq nlst '())<br /> (while lst<br />       (setq ahlst '()<br />             a (car (car lst))<br />       )<br />       (foreach x lst<br />             (setq b (car x))<br />   (if (= a b) (setq ahlst (cons (cadr x) ahlst)))<br /> );foreach<br />     (setq nlst (cons (list a (apply '+ ahlst)) nlst)<br />          lst (vl-remove-if '(lambda(y) (= (car y) a)) lst)<br />    )<br />   );while<br />   (setq nlst (reverse nlst))<br />   )<br />

和gu_xl有点类似 但是我的有点慢

Andyhon

一个类似的讨论:
http://forums.autodesk.com/t5/Vi ... -in-list/m-p/788661