DouKaku?beta

challenge ミリ秒まで含んだ時刻文字列

YYYY年mm月dd日HH時MM分SS.xxx秒なら、「YYYYmmddHHMMSS.xxx」のようにミリ秒まで含んだ文字列を返すプログラムを書いてください。

post comment

Posted feedbacks - Scheme

Gauche (Scheme) で SRFI-19 を使って書いてみました。 
1
2
3
4
5
6
(use srfi-19)
(define get-date-string (lambda ()
    (let ((date (current-date)))
        (string-append
            (date->string date "~Y~m~d~H~M~S") "."
            (format #f "~3,'0d" (quotient (date-nanosecond date) (expt 10 6)))))))

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]