dcl1214 发表于 2024-8-19 13:43:44

kkq0305 发表于 2022-11-5 21:23
(defun tt (lst / group is bs as a n)
(setq group nil)
(while lst


上面我更新了,给出了测试代码tt,应该比你这个代码快很多,你试试
页: 1 [2]
查看完整版本: 相同项分组