请教Gu_xl,这个表怎么快速统计出

Gu_xl

2. 
   
3. (defun tt(lst / rtn a b)
   
4. (while lst
   
5.   (setq a (car lst)
   
6.         )
   
7.   (setq b nil)
   
8.   (foreach x lst
   
9.     (if (eq (car a) (car x))
   
10.       (setq b (cons (cdr x) b))
    
11.     )
    
12.   )
    
13.   (setq b (reverse b))
    
14.   (setq b (apply 'mapcar  (cons '+ b)))
    
15.   (setq rtn (cons (cons (car a) b) rtn))
    
16.   (setq lst (vl-remove-if '(lambda (x) (= (car a) (car x))) lst))
    
17.   )
    
18.   (reverse rtn)
    
19. )
    
20. ;;;测试 (setq lst '(("a" 2) ( "b" 4) ("a" 5) ("c" 6) ("d" 9) ("c" 1) ("b" 4) ("r" 3) ("r" 3) ("a" 5) ))
    
21. ;;; (tt lst) 返回：'(("a" 12) ("b" 8) ("c" 7) ("d" 9) ("r" 6))
    
22. 
    

<br /> (defun tt(lst / rtn a b)<br /> (while lst<br />   (setq a (car lst)<br />         )<br />   (setq b nil)<br />   (foreach x lst<br />     (if (eq (car a) (car x))<br />       (setq b (cons (cdr x) b))<br />     )<br />   )<br />   (setq b (reverse b))<br />   (setq b (apply 'mapcar  (cons '+ b)))<br />   (setq rtn (cons (cons (car a) b) rtn))<br />   (setq lst (vl-remove-if '(lambda (x) (= (car a) (car x))) lst))<br />   )<br />   (reverse rtn)<br /> )<br /> ;;;测试 (setq lst '(("a" 2) ( "b" 4) ("a" 5) ("c" 6) ("d" 9) ("c" 1) ("b" 4) ("r" 3) ("r" 3) ("a" 5) ))<br /> ;;; (tt lst) 返回：'(("a" 12) ("b" 8) ("c" 7) ("d" 9) ("r" 6))<br /> <br />

crazylsp

两种情况下的求和
(defun c:t()