Erlang编程入门之高端函数

作者：来自ITPUB论坛 2008-01-30

内容导航：

　　【IT168 技术文档】Erlang和其他的函数式编程语言一样，有一些高端的函数，我们下面就来看看这部分的内容：

　　90> Xf = fun(X) -> X * 2 end.
　　#Fun
　　91> Xf(5).
　　10

　　我们在这里定义了一个函数，其功能是将输入的数值乘以2. 于是我们调用Xf(5)得到结果10.两个在日常工作中有用的函数是 foreach和map，定义如下：

　　foreach(Fun, [First|Rest]) ->
　　Fun(First),
　　foreach(Fun, Rest);
　　foreach(Fun, []) ->
　　ok.
　　map(Fun, [First|Rest]) ->
　　[Fun(First)|map(Fun,Rest)];
　　map(Fun, []) ->
　　[].

　　这两个函数都在模块lists中。foreach需要一个列表作为输入，然后对每个列表元素应用一次fun函数。而map则创建一个新的列表来保存被fun函数作用过的列表元素。回到shell中，我们使用map 和fun对列表中的每个元素都加上3：

　　92> Add_3 = fun(X) -> X + 3 end.
　　#Fun
　　93> lists:map(Add_3, [1,2,3]).
　　[4,5,6]

　　现在让我们输出城市的温度列表：

　　95> Print_City = fun({City, {X, Temp}}) -> io:format("~-15w ~w ~w~n",
　　[City, X, Temp]) end.
　　#Fun
　　96> lists:foreach(Print_City, [{moscow, {c, -10}}, {cape_town, {f, 70}},
　　{stockholm, {c, -4}}, {paris, {f, 28}}, {london, {f, 36}}]).
　　moscow c -10
　　cape_town f 70
　　stockholm c -4
　　paris f 28
　　london f 36

　　我们现在定义一个fun函数，来将列表中的华氏度全部转换为摄氏度：

　　-module(tut13).
　　-export([convert_list_to_c/1]).
　　convert_to_c({Name, {f, Temp}}) ->
　　{Name, {c, trunc((Temp - 32) * 5 / 9)}};
　　convert_to_c({Name, {c, Temp}}) ->
　　{Name, {c, Temp}}.
　　convert_list_to_c(List) ->
　　lists:map(fun convert_to_c/1, List).
　　98> tut13:convert_list_to_c([{moscow, {c, -10}}, {cape_town, {f, 70}},
　　{stockholm, {c, -4}}, {paris, {f, 28}}, {london, {f, 36}}]).
　　[{moscow,{c,-10}},
　　{cape_town,{c,21}},
　　{stockholm,{c,-4}},
　　{paris,{c,-2}},
　　{london,{c,2}}]

　　convert_to_c函数的功能和上面相同，只不过我们使用了一个fun：

　　lists:map(fun convert_to_c/1, List)

　　但我们使用一个某处定义的函数作为fun时，我们应该明确的知道它的方法名和参数数量(Function/Arity)。所以在map中我们写 lists:map(fun convert_to_c/1,List)。所以你可以看到 convert_list_to_c变短了，变得更加容易阅读理解了。

　　标准模块lists同样包含了函数sort(Fun,List)，这里的fun 带有两个参数。如果第一个参数小于第二个参数则fun应该返回true ，否则应该返回false。我们将其添加到convert_list_to_c中：

　　-module(tut13).
　　-export([convert_list_to_c/1]).
　　convert_to_c({Name, {f, Temp}}) ->
　　{Name, {c, trunc((Temp - 32) * 5 / 9)}};
　　convert_to_c({Name, {c, Temp}}) ->
　　{Name, {c, Temp}}.
　　convert_list_to_c(List) ->
　　New_list = lists:map(fun convert_to_c/1, List),
　　lists:sort(fun({_, {c, Temp1}}, {_, {c, Temp2}}) - >
　　Temp1 < Temp2 end, New_list).
　　99> c(tut13).
　　{ok,tut13}
　　100> tut13:convert_list_to_c([{moscow, {c, -10}}, {cape_town, {f, 70}},
　　{stockholm, {c, -4}}, {paris, {f, 28}}, {london, {f, 36}}]).
　　[{moscow,{c,-10}},
　　{stockholm,{c,-4}},
　　{paris,{c,-2}},
　　{london,{c,2}},
　　{cape_town,{c,21}}]

　　在sort中我们使用fun：

　　fun({_, {c, Temp1}}, {_, {c, Temp2}}) -> Temp1 < Temp2 end,

　　这里我们引入了一个概念——匿名变量"_"(anonymous variable)。这是一种当获取一个值时的缩写的形式，但是我们将忽略这个值。我们可以在任何地方使用这个匿名特性，不仅仅是在fun 中。

【内容导航】

第1页： Erlang编程入门之高端函数

[责任编辑：cynthia]

[an error occurred while processing this directive]