从 Scheme 中的 List 中删除 Item 会留下空的 null 列表元素

Question

我有以下代码：

 (define (atom? x)
   (and (not (null? x))
   (not (pair? x)))) 


 (define delete 
   (lambda (atom l)
     (cond
       ((null? l) '())
       ((atom? l) 
        (cond 
          ((not(eq? atom l)) l)
          (else '())
        )
       ) 
       (else (cons (delete atom (car l)) (delete atom (cdr l))) )
     )
   )  
  ) 

目标是从此列表中删除某个字符。例如，

 (delete 'a '(a b a) )  ==> (b)

我得到的不是这个：

  (delete 'a '(a b a) )==> (() b ())

我是全新的方案。如果找到该值，我尝试不返回任何内容，但这只是使其行为类似于：

 (delete 'a '(a b a) )==> (#<void> b #<void>)

有什么想法吗？非常感谢！

Answer 1

 (define delete
      (lambda (atom l)
           (cond
                ((null? l) '())
                ((atom? (car l))
                     (cond
                          ((eq? atom (car l)) (delete atom (cdr l)))
                          (else (cons (car l) (delete atom (cdr l))))

                     )
                )
                (else (cons (delete atom (car l)) (delete atom (cdr l))))
            )
      )
  )  

这个解决方案更基础，更容易从基础上理解。