想得到一个这样的程序

winerfjy · 发表于 2017-5-2 17:49:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

有哪个函数能把表把表((1 2) (1 2) (1 2) (3 4) (3 4) (5 6) (7 8))
返回(1 2)=3
(3 4)=2
(5 6)=1
(7 8)=1

csharp · 发表于 2017-5-2 17:51:20

(mapcar 'length (mapcar 'cdr (xd::list:groupbyindex lst)))

newer · 发表于 2017-5-2 17:59:32

删除重复的，然后你想干什么？
(1 2)=3 1+2
(3 4)=2 ？
(5 6)=1 6-5？
(7 8)=1 8-7？

3，2，1，1你根据什么来的？

csharp · 发表于 2017-5-2 18:02:13

相同元素个数

newer · 发表于 2017-5-2 18:07:21

csharp 发表于 2017-5-2 18:02

哦，那就是上面那个，不过缺个参数

(defun rlst (lst)
(mapcar 'length (mapcar 'cdr (xd::list:groupbyindex lst 0.1)))
)

命令: !lst
((1 2) (1 2) (1 2) (3 4) (3 4) (5 6) (7 8))
命令: (rlst lst)
(3 2 1 1)

xd::list:groupbyindex 函数见开源函数库论坛 http://bbs.xdcad.net/thread-671068-1-1.html

winerfjy · 发表于 2017-5-2 18:07:19

是用来统计矩形的个数表是矩形的长宽组成的表这样就能得到选择集内的所有矩形个数和想内尺寸的矩形个数

newer · 发表于 2017-5-2 18:08:24

winerfjy 发表于 2017-5-2 18:07

见5楼代码

winerfjy · 发表于 2017-5-2 18:08:52

newer 发表于 2017-5-2 17:59

是用来统计矩形的个数表是矩形的长宽组成的表这样就能得到选择集内的所有矩形个数和想内尺寸的矩形个数

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

[求助] 想得到一个这样的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子