MapReduce的Erlang实现

最近在看MapReduce相关内容，感觉这个算法挺有意思的，便尝试编写了一个统计文件中出现各个字符串个数的小程序

设计思路就是将Map返回的“{Key, Value}”键值对进行分组，之后对每组键值对进行Reduce操作

在Map阶段，使用lists:foreach对“L”的每一个成员创建线程并执行Map操作，将结果传递给“主线程”。
collect_MapDoFuncs_replies接受每一个Map返回的键值对，并放入字典中。
使用dict:fold对字典中每一个成员执行Reduce操作

解析文件中每个字符串出现个数方法是：
对于全部文件并转换为list作为“L”，对它的每个成员执行Map操作，这里返回的键值对中，以处理到的每个字符作为键，值只是在Reduce操作中用于计数的，因此可以是任意内容。
Reduce操作中传入的键值对中，键为文件中出现的字符，值为之前Map操作中所有相同键对应的值的集合，因此直接使用length函数计算出现的次数，及为此字符出现的个数。

-module(mapreduce).
-export([
         mapreduce/3,
         test/0
        ]).

mapreduce(MapDoFunc, ReduceDoFunc,L) ->
    S = self(),
    Pid = spawn(fun()->reduce(