[求助]用简单方法对表进行分类

龙龙仔

3. 改了">"
4. (defun TTT (A / B C); by lxx 2009.10
5.   (mapcar '(lambda (X)
6.       (if (member X B)
7.         (setq B (cons X B))
8.         (setq C (if B (cons B C) C)
9.        B (list X)
10.         )
11.       )
12.     )
13.    (vl-sort A '(lambda (X Y) (> (cadr X) (cadr Y))))
14.   )
15.   (if B (cons B C) C)
16. )

改了">" (defun TTT (A / B C); by lxx 2009.10   (mapcar '(lambda (X)       (if (member X B)         (setq B (cons X B))         (setq C (if B (cons B C) C)        B (list X)         )       )     )    (vl-sort A '(lambda (X Y) (> (cadr X) (cadr Y))))   )   (if B (cons B C) C) )

狂刀lxx

改得好

......狂晕一次，低级错误啊，献丑了......

3527188

顶级人物还是很多嘛