1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{- Contributed by Liyang HU <haskell.org@liyang.hu> -}
module Main where
import Prelude
import Control.Applicative
import Control.Monad
import Control.DeepSeq
import Data.Time
import Data.Time.Clock.POSIX
import System.Random
main :: IO ()
main = do
ts <- replicateM 100000 $ do
t <- posixSecondsToUTCTime . realToFrac <$>
( (*) . fromInteger <$> randomRIO (-15*10^21, 15*10^21) <*>
randomIO :: IO Double ) :: IO UTCTime
rnf t `seq` return t
now <- getCurrentTime
print . sum $ map (diffUTCTime now) ts
print =<< flip diffUTCTime now <$> getCurrentTime
|
