filter - 过滤器是如何实现的？

Question

需要使用方案函数来帮助解决这个问题返回一个列表，其中包含给定列表中满足给定谓词的所有元素。例如，(filter (lambda (x) (< x 5)) '(3 9 5 8 2 4 7))应该返回(3 2 4) .

Answer 1

filterb - 以防万一已经有一个名为 filter 的函数。

(define filterb
    (lambda (pred lst)
      (cond ((null? lst) '())
            ((pred (car lst)) (cons (car lst) (filterb pred (cdr lst))))
            (else (filterb pred (cdr lst))))))

就是这样，不过我确信它可以做得更好。