请教“根据列表中某个相同的元素分成多个列表”的方法

kukine

现在有一个列表：((1 -50 128.3) (1 -47.1 128.4) (1 -41 128.4) (2 -24.3 128.5) (2 -23.3 129.4) (3 -20.9 129.5) (3 -20.1 128.8) (3 -19.1 128.8) (3 17.8 129.7) (4 -16.7 129.7) (4 -1.4 130.1) ( 5 0 130.1) (5 1.5 130.1) (5 16.9 129.7) (5 17.6 129.7) (5 18.7 128.9))
现在想根据列表中相同的第一个元素"1 2 3 4 5"分成5个列表，如：(((50 128.3) (-47.1 128.4) (-41 128.4)）  ( (-24.3 128.5) (-23.3 129.4))   ( (-20.9 129.5) (-20.1 128.8) (-19.1 128.8) (17.8 129.7))   ((16.7 129.7) (-1.4 130.1))   ((0 130.1) (1.5 130.1) (16.9 129.7) (17.6 129.7) (18.7 128.9)))
用“assco”函数只能定位第一个相同元素的位置，但是无法统计相同元素的个数。想不出太好的办法，请教各位大神，怎么才能实现上面的归类？

newer

晓东通用LISP函数库有现成的函数 xd::list:groupbyindex


命令: (XD::LIST:GROUPBYINDEX a 0.1)
((1 (-50 128.3) (-47.1 128.4) (-41 128.4)) (2 (-24.3 128.5) (-23.3 129.4)) (3
(-20.9 129.5) (-20.1 128.8) (-19.1 128.8) (17.8 129.7)) (4 (-16.7 129.7) (-1.4
130.1)) (5 (0 130.1) (1.5 130.1) (16.9 129.7) (17.6 129.7) (18.7 128.9)))

去开源函数库 搜索下 函数  xd::list:groupbyindex , 有源码。

kukine

感谢老大！经过验证可以完全达到要求。以后还是需要到论坛多学习啊！

yjch

函数很好哈，很强大。我学习了

shenfjliu

很好，很强大。我学习了

sicky111

N版热心肠。