1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{- Contributed by Liyang HU <haskell.org@liyang.hu> -}
module Main where
import Control.Applicative
import Control.DeepSeq
import Control.Monad
import Data.Time
import Data.Time.Clock.POSIX
import System.Random
import Prelude
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
|
