编写一个函数来找出所有不带歧义的函数名，也就是 那些只在一个模块里出现过的函数名(erlang)

　　erlang程序设计第八章练习题第二题：

　　code:all_loaded()命令会返回一个由{Mod,File}对构成的列表，内含所有Erlang系统

载入的模块。使用内置函数Mod:module_info()了解这些模块。编写一些函数来找出哪个模块
导出的函数最多，以及哪个函数名最常见。编写一个函数来找出所有不带歧义的函数名，也就是
那些只在一个模块里出现过的函数名。

　　这里主要有三个问题：

　　1、哪个模块导出的函数最多

　　2、哪个函数名最常见

　　3、哪些函数只在一个模块出现

　　module_fun:find_most、find_pop、find_alone分别实现了上述问题.

　　

 -module (module_fun).
 -export([find_most/0, find_pop/0, find_alone/0]).

 %%查找加载的模块
 find_modules() ->
   [Module_Name || {Module_Name, _} <- code:all_loaded()].

 %%查找export最多的模块
 find_most() ->
   find_most(find_modules())
   .
 find_most([]) -> {};
 find_most([H | T]) ->  find_most(T, {H,length(find_export(H))}).
 find_most([H | T], {_, Sum} = M) ->
   Sum1 = length(find_export(H)),
   if
     Sum1 > Sum ->  find_most(T, {H, Sum1});
     true -> find_most(T, M)
   end
 ;
 find_most([], M) -> M.

 %%查找哪个函数最常见
 find_pop() ->
   Map = find_pop_map(find_all_export()),
   find_pop_max(Map)
 .

 find_pop_map([]) -> #{};
 find_pop_map([{Name, _} | T]) ->
   Map = find_pop_map(T),
   maps:put(Name,case maps:is_key(Name, Map) of
                   true -> maps:get(Name, Map);
                   false -> 0
                 end + 1, Map)
 .

 find_pop_max(Map) ->
   find_pop_max(maps:keys(Map), Map).

 find_pop_max([], _) -> {none, -1};
 find_pop_max([H | T], Map) ->
   Count = maps:get(H, Map),
   Max = {_, Count1} = find_pop_max(T, Map),
   if
     Count > Count1 -> {H, Count};
     true -> Max
   end.

 %%查找只在一个模块里出现的函数
 find_alone() ->
   Module_Names = find_modules(),
   L = [ {F, Module_Name} || Module_Name <- Module_Names, F <- find_fun_name(Module_Name)],
   find_alone(L, L)
 .

 find_alone_ex(_, []) -> false;
 find_alone_ex({Name, M} = P, [{Name1, M1} | T] ) ->
   if
     M =:= M1 -> find_alone_ex(P, T);
     Name =:= Name1 -> true;
     true -> find_alone_ex(P, T)
   end
 .

 find_alone([], _) -> #{};
 find_alone([{Name, M} = H | T], L) ->
   Map = find_alone(T, L),
   case find_alone_ex(H, L) of
       true -> Map;
       false ->
         Array = case maps:is_key(M, Map) of
            true -> maps:get(M, Map);
            false -> []
         end,
         maps:put(M, [Name | Array], Map)
   end.

 find_all_export() ->
   Module_Names = find_modules(),
   [ F || Module_Name <- Module_Names, F <- find_export(Module_Name)].

 %%模块export的函数
 find_export(Module_Name) ->
   [{Fun_Name, Fun_Int} ||
     {exports, Fun_Arr} <- apply(Module_Name, module_info, [])
     , {Fun_Name, Fun_Int} <- Fun_Arr
     , Fun_Name =/= module_info
   ].

 find_fun_name(Module_Name) ->
   filter_fun(find_export(Module_Name)).

 filter_fun([]) ->
   [];
 filter_fun([{Name, _} | T]) ->
   [Name | filter_fun(lists:filter(fun({Name1, _}) -> Name =/= Name1 end, T))]
 .