Difference between revisions of "Talk:Timing computations"
Jump to navigation
Jump to search
(Created page with "How about: import Data.Time time :: IO t -> IO t time a = do start <- getCurrentTime v <- a end <- getCurrentTime putStrLn $ "Computation...") |
(No difference)
|
Latest revision as of 23:32, 28 October 2015
How about:
import Data.Time
time :: IO t -> IO t
time a = do
start <- getCurrentTime
v <- a
end <- getCurrentTime
putStrLn $ "Computation time: " ++ show (diffUTCTime end start)
return v