Haskell函数执行时间

有没有一种简单的方法可以计算Haskell中函数执行的时间？

最简单的事情是刚做:set +s的ghci，然后你可以看到你运行任何程序的执行时间，内存使用的一起。

专门为此目的制作了该criterion程序包。

查看http://hackage.haskell.org/package/timeit是否适合您的需求。

函数执行时间基准包含在 Criterion中。

例如，如果我想记录下 someIOFunction :: IO ()

import Criterion.Measurement
main = secs <$> time_ someIOFunction >>= print

标准是最复杂的方法，尽管我发现它很难入门，而且似乎针对基准测试程序。我想计算执行时间并在程序中使用该数据，但它似乎无法解决这一需求，至少目前还不是很明显。

TimeIt非常简单，可以满足我的要求，只是它不能很好地处理纯函数。纯函数返回的时间是thunk分配时间（AFAIK），即使使用seq，也可能很难获得所需的内容。

对我有用的是基于TimeIt。

import System.TimeIt

timeItTPure :: (a -> ()) -> a -> IO (Double,a)
timeItTPure p a = timeItT $ p a `seq` return a

在timeItTPure pa中，p是负责评估纯计算结果a的函数，它可以根据需要深入地获取良好的评估时间。也许这是一个简单的模式匹配，也许它正在计算列表的长度，也许它对列表中的每个元素进行seq，也许是一个deepseq等。

seq的使用非常棘手。注意，以下功能无法正常执行。Haskell是一个神秘的事物。

badTimeItTPure a = timeItT . return $ seq (p a) a

https://github.com/chrissound/FuckItTimer

start' <- start
timerc start' "begin"
print "hello"
timerc start' "after printing hello"
benchmark
timerc start' "end"
end <- getVals start'
forM_ (timert end) putStrLn

输出：

"hello"
begin -> after printing hello: 0.000039555s
after printing hello -> end: 1.333936928s

对于我非常简单的用例，这似乎很好用。