打破折叠的简单方法

Question

我需要打破foldl.下面是一个虚拟示例,当我计算列表中的值总和并满足太大的值(即10)时,如何从折叠中断

   L = [1,2,3,4,10,5,6,7],

   Res = 
      try
         lists:foldl(
            fun(I, Value) ->
               if (I < 10) ->
                  Value + I;
               true ->
                  throw({too_big_value, Value})
               end
            end,
            0, L)
      catch
         throw:{too_big_value, Value} -> Value
      end,

   Res.

我知道这个例子是人为的,但是有没有很好的方法来打破折叠(我知道折叠总是扫描整个结构)？

请注意,即使我从折叠中断,我也需要检索正确的数据.在这种情况下,我应该从前一次迭代中获取数据(就像我在我的例子中所做的那样).

Answer 1

只是好奇,foldl在这里使用有什么意义？如果你需要突破,使用递归,foldl不是为它而设计的.

main([]) ->
  L = [1,2,3,4,5,10,6,7],

   io:format("[~w]", [s(L, 0)]).

s([], S) ->
  S;

s([H|T], S) ->
  if (H < 10) ->
    s(T, S + H);
  true ->
    S
  end.

更新:

另一种选择是使用takewhile:

lists:foldl(fun(E, A) -> A + E end, 0, lists:takewhile(fun(E) -> E < 10 end, L))

Answer 2

你做得对,使用带有try/catch的throw来进行非局部返回.如果函数从乐趣中查看返回值以决定是否继续,那么它将不再是foldl.