[求助]关于表的合并2

sf_elite

((3 <图元名: 7efaac00> 376.91) (7 <图元名: 7efaac20> 305.764) (7 <图元名: 7efaabb0> 305.544) (7 <图元名: 7efaac08> 305.544)

 (8 <图元名: 7efaabb8> 304.219)  (8 <图元名: 7efaabb8> 305.219))

 

已知以上表的内容，我想写一个程序整理成以下的表内容，请教各位高手有什么最简便的办法吗?

 

((3 <图元名: 7efaac00> 376.91  1) (7 <图元名: 7efaac20> 305.764  1) (7 <图元名: 7efaabb0> 305.544  2) 

 (8 <图元名: 7efaabb8> 304.219  1)  (8 <图元名: 7efaabb8> 305.219  1))

 

sf_elite

怎么没人帮忙，自己顶一下

xyh

参照以下语句

(setq aa '((3 <图元名: 7efaac00> 376.91) (7 <图元名: 7efaac20> 305.764) (7 <图元名: 7efaabb0> 305.544) (7 <图元名: 7efaac08> 305.544) (8 <图元名: 7efaabb8> 304.219)  (8 <图元名: 7efaabb8> 305.219)))
(setq bb '((1) (1) (2) (2) (1) (1)))
(setq cc (mapcar 'append aa bb))

表中前后相差

(7 <图元名: 7efaac08> 305.544)