Racket - 如何使用map实现过滤，仅应用和追加

Question

在函数式编程中，

如何使用map实现过滤器，仅应用和追加（不使用其他高阶函数，递归或突变）？

谢谢！

Answer 1

(define (filter ? lst)
  (apply append (map (λ (x) (if (? x) (list x) '())) lst)))