(remove-if f lst)方案上的函数

Question

删除lst中等于x的所有内容的(remove-all x lst)函数。对于这个问题，编写方案函数(remove-if f lst，该函数返回删除了(f x)为true的所有元素的列表。

我有一个简单的remove-all代码作为

(define (remove-all x ls)
  (if (null? ls)
      '()
      (if (eq? x (car ls))
          (remove-all x (cdr ls))
          (cons (car ls)
                (remove-all x (cdr ls))))))

但是我如何修改它，让它接受一个函数，并返回包含那些返回true的元素的列表呢？

Answer 1

只需将比较谓词作为参数传递，并将硬编码的eq?替换为谓词：

(define (remove-if pred ls)
  (if (null? ls)
      '()
      (if (pred (car ls))
          (remove-if pred (cdr ls))
          (cons (car ls)
                (remove-if pred (cdr ls))))))

或者更好，在球拍中使用filter-not :)

(filter-not even? '(1 2 3 4 5 6))
=> '(1 3 5)