打破折叠的简单方法

时间:2011-12-07 08:44:40

标签: erlang fold

我需要打破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.

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

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

2 个答案:

答案 0 :(得分:8)

好奇,在这里使用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))

答案 1 :(得分:7)

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