如何把表lst内数据汇总

lisp爱好者

请教G版、Z版、不死猫、高飞、langjs ......等等高手，如何把表lst汇总成下面的格式？
(setq lst '(( "A-1" "60" "50")("A-2" "60" "55")("A-3" "60" "50")( "A-4" "60" "50")("A-5" "60" "55")
     ("A-6" "60" "50")( "A-7" "60" "50")("A-8" "60" "45")("A-9" "60" "60")("A-10" "60" "60")))
我要的格式是下面这样的，小生这厢有礼了，望不吝赐教，拜谢。

'(( "A-1、A-3、A-4、A-6、A-7" "60" "50")("A-2、A-5" "60" "55")("A-8" "60" "45")("A-9、A-10" "60" "60"))

lisp爱好者

还望大家帮忙下，谢谢，归类方式是判断小表中后两者的数据均相同时把小表中第一个数据合并
例：("A-3" "60" "50")( "A-4" "60" "50")
      判断  "60" 和 "50"都相等，那么就把"A-4"加到"A-3"表内，最终编程( "A-3、A-4" "60" "50")

lisp爱好者

如果就两个表好处理，分别提出来比较，通过的话就合并修改，但是小表数量多了，找不到好方法了，烦请大侠出手相助

Gu_xl

1. (defun f (l / a b)
   
2.   (setq a (caar l)
   
3.         b (cdar l)
   
4.         l (cdr l)
   
5.         )
   
6.   (setq l (vl-remove-if
   
7.             (function (lambda (x)
   
8.                         (if (equal b (cdr x))
   
9.                           (setq a (strcat a "、" (car x)))
   
10.                           )
    
11.                         )
    
12.                       )
    
13.             l
    
14.             )
    
15.         )
    
16.   (if l
    
17.     (cons (cons a b) (f l))
    
18.     (list (cons a b))
    
19.     )
    
20.   )
    
21. ;;测试
    
22. (f lst)
    
23. ;;返回
    
24. (("A-1、A-3、A-4、A-6、A-7" "60" "50") ("A-2、A-5" "60" "55") ("A-8" "60" "45") ("A-9、A-10" "60" "60"))

(defun f (l / a b)<br />   (setq a (caar l)<br />         b (cdar l)<br />         l (cdr l)<br />         )<br />   (setq l (vl-remove-if<br />             (function (lambda (x)<br />                         (if (equal b (cdr x))<br />                           (setq a (strcat a "、" (car x)))<br />                           )<br />                         )<br />                       )<br />             l<br />             )<br />         )<br />   (if l<br />     (cons (cons a b) (f l))<br />     (list (cons a b))<br />     )<br />   )<br /> ;;测试<br /> (f lst)<br /> ;;返回<br /> (("A-1、A-3、A-4、A-6、A-7" "60" "50") ("A-2、A-5" "60" "55") ("A-8" "60" "45") ("A-9、A-10" "60" "60"))

自贡黄明儒

lisp爱好者 发表于 2013-9-4 11:30
还望大家帮忙下，谢谢，归类方式是判断小表中后两者的数据均相同时把小表中第一个数据合并
例：("A-3" "60 ...

杀鸡焉用牛刀

1. (setq a        '("A-3" "60" "50") b '("A-4" "60" "50"))
   
2. (defun w2 (a b)
   
3.   (if (VL-EVERY '= (cdr a) (cdr b))
   
4.     (append (list (car a) (car b)) (cdr a))
   
5.   )
   
6. )

(setq a        '("A-3" "60" "50") b '("A-4" "60" "50"))<br /> (defun w2 (a b)<br />   (if (VL-EVERY '= (cdr a) (cdr b))<br />     (append (list (car a) (car b)) (cdr a))<br />   )<br /> )

lisp爱好者

自贡黄明儒 发表于 2013-9-4 11:47
杀鸡焉用牛刀

谢谢黄兄，这样的返回正确

2. (setq a '("A-3" "60" "50") b '("A-4" "60" "50"))
   
3. (defun w2 (a b)
   
4.   (if (VL-EVERY '= (cdr a) (cdr b))
   
5.     (append (list (strcat (car a) "、" (car b))) (cdr a))
   
6.   )
   
7. )
   
8. 测试：(w2 a b)
   
9. 返回：("A-3、A-4" "60" "50")

(setq a '("A-3" "60" "50") b '("A-4" "60" "50"))<br /> (defun w2 (a b)<br />   (if (VL-EVERY '= (cdr a) (cdr b))<br />     (append (list (strcat (car a) "、" (car b))) (cdr a))<br />   )<br /> )<br /> 测试：(w2 a b)<br /> 返回：("A-3、A-4" "60" "50")

lisp爱好者

Gu_xl 发表于 2013-9-4 11:44

仰视 G版，多谢帮助