Haskell, Medición de tiempo de CPU de una función

Question

necesito para medir el tiempo de CPU de una función como la siguiente:

t <- getCPUTime 
res <- callTheFunction input 
t' <- getCPUTime 
print $ t' - t 

El problema viene de la pereza de Haskell. callTheFunction debe ser evaluado estrictamente. ¡He buscado mucho y he tratado de usar seq y $! pero sin éxito. Creo que esta debería ser una tarea bastante común. De todos modos, necesito ayuda. Gracias.

Actualización: Gracias por toda la ayuda, especialmente @FUZxxl. Me recuerda la diferencia entre WHNF (forma normal de cabeza débil) y forma normal. Haskell/Laziness ayuda a comprender la evaluación perezosa de Haskell.

Lo que necesitaba era una evaluación más. De todos modos $! o evaluar tanto funciona siempre y cuando solamente se necesita WHNF de res:

t <- getCPUTime 
res <- callTheFunction input 
evaluate res OR return $! res 
t' <- getCPUTime 
print $ t' - t 

Answer 1

Uso de la función evaluate :: a -> IO aControl.Exception. Evalúa su argumento para WHNF cuando se ejecuta la acción IO correspondiente. Sin embargo, debes asegurarte de que WHNF sea suficiente para tu función.

Answer 2

Si está tratando de hacer puntos de referencia, utilice la excelente biblioteca de criterios, que está en Hackage.

Answer 3

Si está haciendo una evaluación comparativa, entonces debe usar Criterion. De lo contrario, use NFData (rnf) y bang patterns para forzar la evaluación.