《Erlang 程序设计》练习答案 -- 第八章 顺序编程补遗

% (1).复习这一张关于Mod:module_info()的部分。输入命令dict:module_info()。这个模块返回了多少函数？

---

% (2).code:all_loaded() 命令会返回一个由{Mod, File}对构成的列表，% 内含所有Erlang系统载入的模块。编写一些函数来找出% 哪个模块导出的函数最多？% 哪个函数名最常见。% 不带歧义的函数名（只出现过一次）。-module(getInfo).-export([get_info/0, list_size/1, count_function/2, find_max/1, find_one/1, for/4]).list_size(L) ->    list_size(L, 0).list_size([H|T], Size) ->    list_size(T, Size+1);list_size([], Size) ->    Size.% 找出哪个模块导出的函数最多%get_info() ->%    Info = code:all_loaded(),%    get_info(Info, -1).%%get_info([H|T], Max) ->%    {Name, _} = H,%    [_, {exports, L}, _, _, _] = Name:module_info(),%    case (list_size(L) >= Max) of%        true -> get_info(T, list_size(L));%        false -> get_info(T, Max)%    end;%get_info([], Max) ->%    Max.% 哪个函数名最常见get_info() ->    Info = code:all_loaded(),    get_info(Info, #{}).get_info([H|T], X) ->    {Name, _} = H,    [_, {exports, L}, _, _, _] = Name:module_info(),    get_info(T, count_function(L, X));get_info([], X) ->    %X.    %问题2,找出出现次数最多的    %find_max(X).    %问题3,找出出现一次的    %find_one(X).count_function([H|T], X) ->    {FuncName, _} = H,    case maps:is_key(FuncName, X) of        false -> count_function(T, X#{FuncName => 1});        true  -> #{FuncName := Count} = X,                count_function(T, X#{FuncName := Count+1})    end;count_function([], X) ->    X.% 问题2 找出出现次数最多的find_max(X) ->    L = maps:keys(X),    for(L, X, "", -1).% 问题3 找出只在模块中出现过一次的函数。find_one(X) ->    L = maps:keys(X),    lists:filter(fun(E) -> {ok, Value} = maps:find(E, X),                           Value == 1 end, L).for([H|T], X, MaxKey, MaxValue) ->    {ok, Value} = maps:find(H, X),    case (Value > MaxValue) of        true  -> for(T, X, H, Value);        false -> for(T, X, MaxKey, MaxValue)    end;for([], X, MaxKey, MaxValue) ->    {MaxKey, MaxValue}.

导出最多的函数

最多导出 324 个函数

最常见的函数名

只出现过一次的函数名