Scheme如何从列表中删除元素？

Question

(define (delete atm lis) 
    (cond 

    ((eq? atm (car lis)) (cdr lis)) 
    (else (cons (car lis) (delete atm (cdr lis)))))) 

(delete 'a '(b c d a)) 
(delete 'the '(the more you practice the better you will be)) 
(delete 'cat '((dog cat) mouse cat (elephant) (cat) cat)) 
(delete 'rainy '(the weather can be (rainy) sunny cloudy and cold)) 

---

我想输出是

1. （BCD）
2. （你练习得越多就越会是）
3. （（狗猫）鼠标（大象）（CAT））
4. （气候可能（雨天）晴天阴天和冷）

但有很多错误，请帮助我，谢谢

Answer 1

你实际上并没有删除任何东西。您的程序通常被称为remq。

以下应工作（未经测试）：

(define (delete atm lis) 
    (cond 
    ((null? lis) lis) 
    ((eq? atm (car lis)) (delete atm (cdr lis))) 
    (else (cons (car lis) (delete atm (cdr lis)))))) 

Answer 2

你需要一个基本情况，甚至当你找到你想要的自动取款机，你还愿意继续通过列表递归。

(define (delete atm lis) 
    (cond 
    ((null? lis) '()) 
    ((eq? atm (car lis)) (delete atm (cdr lis))) 
    (else (cons (car lis) (delete atm (cdr lis)))))) 

Answer 3

另外两个答案（顺便说一句）目前只能在列表的顶层工作。如果你也希望它从所有嵌套列表中删除您的原子，你必须得有搜索：

(define (delete atm lis) 
(cond 
    ((null? lis) lis) 
    ((eq? atm (car lis)) (delete atm (cdr lis))) 
    ((list? (car lis)) (cons (delete atm (car lis)) (delete atm (cdr lis)))) 
    (else (cons (car lis) (delete atm (cdr lis)))))) 

如果这不是你想要的，也许你可以指定它到底是什么这是怎么了。你一直在说某件事或许多事情是错误的，但没有具体说明它是什么。例如，你可以指定你期望的四个例子的输出结果。