乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
楼主: sadhu

[编程交流] LISP测试元素是否为

[复制链接]
Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:23:13 | 显示全部楼层
派对有点晚，但我的2美分：
 
  2. (defun LM:ListDupes ( lst )
  3.  ;; © Lee Mac 2010
  4.  (if lst
  5.    (if (vl-position (car lst) (cdr lst))
  6.      (cons
  7.        (cons (car lst)
  8.          (- (length lst) (length (vl-remove (car lst) lst)))
  9.        )
  10.        (LM:ListDupes (vl-remove (car lst) lst))
  11.      )
  12.      (LM:ListDupes (cdr lst))
  13.    )
  14.  )
  15. )
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 11:25:29 | 显示全部楼层 
  1. (vl-remove-if-not
  2.  (function (lambda (x) (vl-position (car x) '(1 3 5))))
  3.  (_ListDuplicateCounter my_lst)
  4. )

 
 
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:30:47 | 显示全部楼层
 
  2. (defun LM:ListDupes ( lst )
  3.  ;; © Lee Mac 2010
  4.  (if lst
  5.    (if (vl-position (car lst) (cdr lst))
  6.      (cons
  7.        (cons (car lst)
  8.          (- (length lst) (length (vl-remove (car lst) lst)))
  9.        )
  10.        (LM:ListDupes (vl-remove (car lst) lst))
  11.      )
  12.      (LM:ListDupes (cdr lst))
  13.    )
  14.  )
  15. )
  1. (defun LM:GetOddDupes ( lst )
  2.  ;; © Lee Mac 2010
  3.  (vl-remove-if-not
  4.    '(lambda ( x ) (= 1 (boole 1 1 (cdr x)))) (LM:ListDupes lst)
  5.  )
  6. )
回复

使用道具 举报

sadhu

34

主题

123

帖子

90

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
175
发表于 2022-7-6 11:31:50 | 显示全部楼层
艾伦，
我做了这个修改，并完成了我的案例。
 
非常感谢。
回复

使用道具 举报

sadhu

34

主题

123

帖子

90

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
175
发表于 2022-7-6 11:37:30 | 显示全部楼层
李，
我像这样尝试了你的代码-结果为零-我遗漏了什么吗？
  1. 15
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:39:22 | 显示全部楼层
您的列表中只有一个元素重复了两次，因此根据您的请求将其省略。
回复

使用道具 举报

sadhu

34

主题

123

帖子

90

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
175
发表于 2022-7-6 11:42:19 | 显示全部楼层
我的列表中有六个元素，其中“4”重复两次（偶数），因此应将其排除在外，而1、2、3和5只出现一次（奇数），因此应将其包括在内：
我也尝试过这种方法，但仍然得到零：
对不起，我不清楚。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:44:21 | 显示全部楼层
啊-我以为你只计算重复项-我的代码忽略任何没有重复多次的内容。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:48:57 | 显示全部楼层
这使我的代码更加简单：
 
  1. 18

 
  1. 19
回复

使用道具 举报

sadhu

34

主题

123

帖子

90

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
175
发表于 2022-7-6 11:52:21 | 显示全部楼层
是的，现在我明白了。它起作用了。
 
非常感谢李。
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-6 17:10 , Processed in 1.935805 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表