SML编程到球拍编程

Question

使用SML，我完成了一个名为dates_in_month的问题，它接受一个日期和一个月(即int)的列表，并从月份中的参数列表中返回一个包含日期的列表。虽然它在SML中很容易完成，但我的问题是，如何用Racket编程语言编写相同的程序，其中函数和列表的定义和使用方式不同？

一个例子是(dates_in_month 5 (2002 05 12) (1999 05 12) (1980 12 20))，产出应该是(0 0 0 5 12) (99 0 5 12)，因为这是月份为5的日期。

Answer 1

对于filter来说，这相对简单明了。

(define (dates_in_month n l)
  (filter (lambda (date) (= (cadr date) n)) l))

然后

> (dates_in_month 5 '[(2002 5 12) (1999 5 12) (1980 12 20)])
'((2002 5 12) (1999 5 12))
>