（map和foreach的区别）Erlang编程入门之高端函数

http://tech.it168.com/jd/2008-01-30/200801302323777.shtml

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


 
 

　　ok

　　我们现在定义一个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 中。