请教一个表根据第一个元素是否相同相加的思路

QiaoCheng · 发表于 2013-11-24 11:29:13

您需要登录才可以下载或查看，没有账号？立即注册

×

(list (list "k0" a 1) (list "k0" b 2) .... (list "k1" c 3) (list "k1" d 4) ......)

复制代码

如何得到下表

复制代码

st788796 · 发表于 2013-11-24 11:33:04

本帖最后由 st788796 于 2013-11-24 11:34 编辑

有现成的，参考 XD::List:GroupByIndex
以 K1 K0 .... 分完组后再处理一步

st788796 · 发表于 2013-11-24 11:40:43

(mapcar '(lambda (x)
(list (car x) (apply '+ (XD::List:ODD (cdr x))) (apply '+ (XD::List:Event (cdr x)))
)
(XD::List:GroupByIndex lst 0)
)

菜菜学ODCL · 发表于 2013-11-24 11:54:19

应该是先按关联表关键字排序了，然后把关键字相同的顺序找到相加里面的元素。

QiaoCheng · 发表于 2013-11-24 12:10:25

st788796 发表于 2013-11-24 11:40

正是要这样的结果，谢谢st788796了

账号		自动登录	找回密码
密码			立即注册

[求助] 请教一个表根据第一个元素是否相同相加的思路