erlang - 打破折叠的简单方法

Question

我需要摆脱折叠。这是一个虚拟示例，当我计算列表中的值总和并遇到太大的值(即 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))