日付の曜日を日本語で出力する


Tags: 日付と時刻, R6RS, SRFI

日付の曜日を日本語で出力する

日付の曜日部分は 0 を起点に日曜日から番号付けされているので、それを利用する。

(import (rnrs) (srfi :19))

(let ((d (current-date)))
  (string-ref "日月火水木金土" (date-week-day d)))