方案 如何从列表中删除元素？

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. （（狗猫）老鼠（大象）（猫））
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) 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))))))

如果这不是您想要的，也许您可​​以指定到底出了什么问题。你一直说某件事或很多事情是错误的，但没有具体说明那是什么。例如，您可以指定您期望四个示例的输出是什么。

Answer 3

您需要一个基本案例，即使您找到了所需的自动取款机，您仍然希望继续遍历列表。

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