弱首标的形式和评价顺序
我读了很多弱头正常形式和seq。 但是我仍然很难想象Haskell的评估顺序背后的逻辑
一个常见的例子说明何时以及如何使用,但我仍然不明白常见的例子
foldl (+) 0 [1..5000000]
可能导致堆栈溢出。 而使用seq
另一个折叠定义不会
foldl' _ a [] = a
foldl' f a (x:xs) = let a' = f a x in a' `seq` foldl' f a' xs
foldl' (+) 0 [0..5000000]
从我读过的seq的解释中,作者非常谨慎地阐明以下内容:
seq
的第一个参数不保证在第二个参数之前被评估 seq
的第一个参数只会被评估为弱头标准形式 seq
的第一个参数进行评估 所以,如果以上是正确的(是吗?),那么为什么foldl'
不像foldl
那样溢出?
当我们减少一步时,它不应该看起来像这样,对吗?
foldl' (+) 0 (1:xs) = let a' = (+) 0 1 in a' `seq` foldl' (+) a' xs
在上面, seq
的第二个参数不在WHNF中,因为有一个函数应用程序需要完成。 在我们达到第二个参数的WHNF之前,我们是否保证评估seq
的第一个参数?
seq
的第一个参数不保证在第二个参数不被保证之前被评估,但是编译器会尝试并且通常在阻止thunk建立的时候这样做。 这种情况不适用于并行性,因此需要pseq
- 但对于foldl'
,这并不相关。 seq
的第一个参数只会被评估为弱头正常形式是的,但对于内置的数字类型WHNF = NF。 seq
的第一个参数的评估只有在第二个评估为WHNF时才会发生。事实上,这经常会导致混淆。 但是in a' `seq` foldl' fa' xs
表示如果您请求任何结果,它将触发seq
。 当我们减少一步时,它不应该看起来像这样,对吗? ... seq
的第二个参数不在WHNF中正是这就是强制seq
原因,因为要评估foldl' (+) 0 (1:xs)
您需要foldl' (+) a' xs
a'xs为WHNF, seq
确保这不会发生在a'
WHNF a'
之前。