如何删除列表方案中所有重复的元素？
如何删除列表方案中所有重复的元素？
提问于 2011-04-21 05:58:06
我的尝试是，
(define (remove-dup lst)
(cond ((null? lst) '())
((null? (cdr lst)) (car lst))
((equal? (car lst) (car (cdr lst))) (remove-dup (cdr lst)))
(else (cons (car lst) (remove-dup (cdr lst))))
)
)我的清单是(a b c a a c c c )，我想要的是(a b c)。有什么想法吗？
谢谢,
回答 3
Stack Overflow用户
回答已采纳
发布于 2011-04-21 06:41:21
我会通过循环第二个列表来实现这一点，该列表是您构建的已见元素的列表。如果这是家庭作业，我会觉得很遗憾--理解递归是如何工作的比仅仅得到正确的答案更重要。
(define (remove-dup ls)
(let loop ((ls ls) (seen '()))
(cond
((null? ls) '())
((memq (car ls) seen) (loop (cdr ls) seen))
(else (cons (car ls) (loop (cdr ls) (cons (car ls) seen))))))更新了以适应你的评论-这可能不是最干净的解决方案，但应该会让你了解它可能是如何工作的。
(define (rdup ls)
(let loop ((ls ls) (current #f)) ; this is bad coding style, a "magic" variable you don't expect to see in your list
(cond
((null? ls) '())
((null? (cdr ls)) (if (eq? (car ls) current) '() ls))
((eq? (car ls) (cadr ls)) (loop (cdr ls) (car ls)))
((eq? (car ls) current) (loop (cdr ls) current))
(else (cons (car ls) (loop (cdr ls) (car ls)))))))Stack Overflow用户
发布于 2011-12-28 04:40:48
R5RS + SRFI1
(define (remove-duplicates lst)
(fold-right (lambda (f r)
(cons f (filter (lambda (x) (not (equal? x f))) r))) '() lst))Stack Overflow用户
发布于 2014-11-09 04:46:02
使用SRFI1，您可以直接使用delete-duplicates或delete-duplicates!：http://srfi.schemers.org/srfi-1/srfi-1.html#delete-duplicates
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/5740147
复制相关文章
相似问题
创建虚拟目录时拒绝访问。
在通过jenkins localhost tomcat部署时被拒绝访问
Maven:无法部署项目，访问被拒绝
生成项目时访问被拒绝
使用XML文档部署Web项目时，构建服务器上的“访问被拒绝”
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
