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

Question

如何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))

享受。:-)