我正在尝试在球拍中编写一个函数(delete-all xx elt),它返回一个新列表,其中删除了所有出现的elt

这就是我所拥有的,但只有当elt出现在列表的开头时它才有效

(define (delete-all xx elt)
  (cond ((null? xx) null)
        ((equal? elt (car xx)) (delete (cdr xx) elt))))

最佳答案 您错过了一个额外的案例:如果当前元素不是您要删除的元素,会发生什么?以下是需要做什么的一般概念,我不是直截了当地回答,因为这看起来像是家庭作业(你应该在你的问题中使用作业标签).更好地填写空白:

(define (delete-all xx elt)
  (cond ((null? xx)            ; base case: empty list
         null)                 ; return the empty list
        ((equal? elt (car xx)) ; current element needs to be removed
         <???>)                ; ignore current element and make recursive call
        (else                  ; current element needs to be added to the list
         (<???> (car xx) <???>)))) ; add current element and make recursive call

另外,不要在你的答案中调用delete,因为这是一个递归解决方案,你需要调用delete-all,但需要使用适当的参数来保持递归,直到达到基本情况.提示:cons和cdr怎么样?

点赞