Erlang：是否可以将最小函数编写为列表折叠？

Question

给定一个函数：

min(A, B)  when A =< B -> A;
min(_A, B)             -> B.

我可以在函数 foldl 中以类似的方式使用它吗：

lists:foldl(fun min/2, 0, [1,2,3,4,5,6,7,8,9,10])

我相信这是不可能的，因为我必须设置一个初始值，该值将与其余的进行比较列表，例如我能想到没有恒等函数。我说得对吗？

语法是用 Erlang 编写的，但对于非 Erlang 程序员也应该可读。

Answer 1

min(List) ->
    Min = fun(A,  B) when A < B -> A;
             (_A, B)            -> B end,
    lists:foldl(Min, undefined, List).

使用 undefined 作为初始状态应该可以解决问题。对于空列表返回 undefined，这作为一个 API 来说是很好的。

如果您希望它在空列表上崩溃，请改用此函数头：

min([Head|Rest]) ->
    Min = fun(A,  B) when A < B -> A;
             (_A, B)            -> B end,
    lists:foldl(Min, Head, Rest).

Answer 2

1> List = [42,13,25,3,19,20].
[42,13,25,3,19,20]
2> lists:foldl(fun(X, Y) -> erlang:min(X,Y) end, hd(List), tl(List)).   
3

使空列表上的程序崩溃，推荐的方法是“让它崩溃”，而不是防御性编程。

Answer 3

Adam Lindberg 提出使用 undefined 作为初始值的缺点是，它会为以原子为成员的列表生成奇怪的结果。 Erlang 对所有对象具有全局排序，因此 min 函数的一个很好的属性是可用于所有类型。

我认为在空列表上崩溃更合理。不同之处在于，客户端必须担心大小写，而不是担心得到 undefined 结果。