Haskell - モジュール(日付と時間(ClockTime, CalendarTime))

すごいHaskellたのしく学ぼう!
(オーム社)
Miran Lipovača (著)
田中 英行 村主 崇行 (翻訳)
[Kindle版]

開発環境

• OS X Lion - Apple(OS)
• Emacs、BBEdit - Bare Bones Software, Inc. (Text Editor)
• Haskell (純粋関数型プログラミング言語)
• GHC (The Glasgow Haskell Compiler) (処理系)

『初めてのプログラミング 第2版』(Chris Pine 著、長尾 高弘 訳、オライリー・ジャパン、2010年、ISBN978-4-87311-469-9)の12章(新しいクラスのオブジェクト), 12.1(Timeクラス)、12.2(練習問題)、10億秒をHaskellで解いてみる。

その他参考書籍

• プログラミングHaskell (オーム社) Graham Hutton(著) 山本 和彦(翻訳)
• Real World Haskell―実戦で学ぶ関数型言語プログラミング (オライリージャパン) Bryan O'Sullivan John Goerzen Don Stewart(著) 山下 伸夫 伊東 勝利 株式会社タイムインターメディア(翻訳)

10億秒

コード(BBEdit)

sample.hs

{-# OPTIONS -Wall -Werror #-}

import System.Time

main :: IO ()
main = do
    mapM_ putStrLn
          ["誕生日:   " ++ (show birthClockTime),
           "10億秒後: " ++ (show futureClockTime)]

birthCalendarTime :: CalendarTime
birthCalendarTime =
    CalendarTime 2000 January 2 3 4 5 0 undefined undefined "UTC" 0 False

birthClockTime :: ClockTime
birthClockTime = toClockTime birthCalendarTime

secs :: Integer
secs = (\(TOD sec _) -> sec) birthClockTime

addSecs :: Integer
addSecs = 10 ^ (9 :: Integer)
futureClockTime :: ClockTime
futureClockTime = TOD (secs + addSecs) 0

入出力結果(Terminal, runghc)

$ runghc sample.hs
誕生日:   Sun Jan  2 12:04:05 JST 2000
10億秒後: Wed Sep 10 13:50:45 JST 2031
$