以下のような Facebook 日付形式を返す手続きを書いてみた。 テストの部分を見ると、どういう場合に日付形式が変わるのかが分かって面白いかも。 (import (rnrs) (mosh test) (only (mosh) format) (srfi :19)) (define dw '#("日曜日" "月曜日" "火曜日" "水曜日" "木曜日" "金曜日" "土曜日")) (define (date-diff->string lhs rhs) (let ([seconds (- (time-second (date->time-monotonic rhs)) (time-second (date->time-monotonic lhs)))]) (assert (> seconds 0)) (cond [(not (= (date-year lhs) (date-year rhs)