比较球拍中的日期

Question

racket 中是否有内置函数可以比较 2 个日期？

如果没有，谁能告诉我如何编写一个函数来比较球拍中的两个日期。我对函数式编程语言非常陌生，请帮助。

Answer 1

要检查两个对象是否类型相同并且外观相同，请使用equal?. Scheme 和 Racket（语言）的时间不同。Scheme 有SRFI-19而 Racket 有日期对象

方案

#!r6rs
(import (rnrs base)
        (srfi :19))

(equal? (make-time time-utc 0 123)
        (make-time time-utc 0 123))
; ==> #t

// perhaps faster equality test (not guaranteed to be faster)
(time=? (make-time time-utc 0 123)
        (make-time time-utc 0 123))

; ==> #t

球拍

#!racket/base

(equal? (seconds->date 123) 
        (seconds->date 123)) 
; ==> #t