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

1 -module (module_fun).
2 -export([find_most/0, find_pop/0, find_alone/0]).
3
4 %%查找加载的模块
5 find_modules() ->
6 [Module_Name || {Module_Name, _} <- code:all_loaded()].
7
8 %%查找export最多的模块
9 find_most() ->
10 find_most(find_modules())
11 .
12 find_most([]) -> {};
13 find_most([H | T]) -> find_most(T, {H,length(find_export(H))}).
14 find_most([H | T], {_, Sum} &＃61; M) ->
15 Sum1 &＃61; length(find_export(H)),
16 if
17 Sum1 > Sum -> find_most(T, {H, Sum1});
18 true -> find_most(T, M)
19 end
20 ;
21 find_most([], M) -> M.
22
23 %%查找哪个函数最常见
24 find_pop() ->
25 Map &＃61; find_pop_map(find_all_export()),
26 find_pop_max(Map)
27 .
28
29 find_pop_map([]) -> #{};
30 find_pop_map([{Name, _} | T]) ->
31 Map &＃61; find_pop_map(T),
32 maps:put(Name,case maps:is_key(Name, Map) of
33 true -> maps:get(Name, Map);
34 false -> 0
35 end &＃43; 1, Map)
36 .
37
38 find_pop_max(Map) ->
39 find_pop_max(maps:keys(Map), Map).
40
41 find_pop_max([], _) -> {none, -1};
42 find_pop_max([H | T], Map) ->
43 Count &＃61; maps:get(H, Map),
44 Max &＃61; {_, Count1} &＃61; find_pop_max(T, Map),
45 if
46 Count > Count1 -> {H, Count};
47 true -> Max
48 end.
49
50
51 %%查找只在一个模块里出现的函数
52 find_alone() ->
53 Module_Names &＃61; find_modules(),
54 L &＃61; [ {F, Module_Name} || Module_Name <- Module_Names, F <- find_fun_name(Module_Name)],
55 find_alone(L, L)
56 .
57
58 find_alone_ex(_, []) -> false;
59 find_alone_ex({Name, M} &＃61; P, [{Name1, M1} | T] ) ->
60 if
61 M &＃61;:&＃61; M1 -> find_alone_ex(P, T);
62 Name &＃61;:&＃61; Name1 -> true;
63 true -> find_alone_ex(P, T)
64 end
65 .
66
67 find_alone([], _) -> #{};
68 find_alone([{Name, M} &＃61; H | T], L) ->
69 Map &＃61; find_alone(T, L),
70 case find_alone_ex(H, L) of
71 true -> Map;
72 false ->
73 Array &＃61; case maps:is_key(M, Map) of
74 true -> maps:get(M, Map);
75 false -> []
76 end,
77 maps:put(M, [Name | Array], Map)
78 end.
79
80
81
82 find_all_export() ->
83 Module_Names &＃61; find_modules(),
84 [ F || Module_Name <- Module_Names, F <- find_export(Module_Name)].
85
86
87 %%模块export的函数
88 find_export(Module_Name) ->
89 [{Fun_Name, Fun_Int} ||
90 {exports, Fun_Arr} <- apply(Module_Name, module_info, [])
91 , {Fun_Name, Fun_Int} <- Fun_Arr
92 , Fun_Name &＃61;/&＃61; module_info
93 ].
94
95 find_fun_name(Module_Name) ->
96 filter_fun(find_export(Module_Name)).
97
98 filter_fun([]) ->
99 [];
100 filter_fun([{Name, _} | T]) ->
101 [Name | filter_fun(lists:filter(fun({Name1, _}) -> Name &＃61;/&＃61; Name1 end, T))]
102 .