如何编写一个只返回嵌套列表中奇数的函数？

Question

如何使用racket语言编写一个如下工作的函数odd-list？

(odd-list '((1 2 3 4) (5 6 7 8) (10 11 12 13))) => ((1 3) (5 7) (11 13))

Answer 1

(require srfi/26)
(define (odd-list lists)
  (map (cut filter odd? <>) lists))

享受。 ： - ）