[求助]表中元素如何相加

c3a139

有一个表((2.6 "1910") (3.6 "XS") (4.7 "1910") (5.6 "XS") (4.7 "1911") (7.8 "1910") (10.1 "XS")　。。)，如何合并成

((15.1 "1910") (4.7 "1911") (19.3 "XS") 。。)，就是把子表中Y相同的X值相加。别外问一下一个表中的子表数量是否有限制？先谢谢了

nonsmall

(defun c:test()
 (setq lst '((2.6 "1910") (3.6 "XS") (4.7 "1910") (5.6 "XS") (4.7 "1911") (7.8 "1910") (10.1 "XS")))
 (setq newlst nil)
 (while lst
  (setq n 0)
  (foreach i lst(if (= (cadar lst) (cadr i))(setq n (+ n (car i)))))
  (setq newlst (append newlst (list (list n (cadar lst)))))
  (setq lst(vl-remove-if '(lambda (x) (= (cadar lst) (cadr x))) lst))
 )
 newlst
)

命令: test
((15.1 "1910") (19.3 "XS") (4.7 "1911"))

没有限制 只要你内存够就行 因为整个Lisp程序都可以看做是一个表

c3a139

谢谢nonsmall

烟盒迷唇

做成个子函数很有用啊