在列表中制作重复元素的计数器，并将其添加到映射 ERLANG 中

Question

我必须创建一个函数来计算列表中所有重复的元素，并将所述元素(以及它们的频率)添加到地图中。 假设我的列表是：[Rojo，Verde，Rojo，Azul] 我的地图必须看起来像：#{rojo => 2，佛得角 => 1，azul => 1} 我已经尝试了很长时间，但我无法提出解决方案。

Answer 1

结合@rorra和@Pascal解决方案...

freq([], Map) ->
Map;
freq([H|T], Map) ->
freq(T, maps:update_with(H, fun inc/1, 1, Map)).
inc(X) -> X + 1.
test() ->
List = [rojo, verde, rojo, azul],
#{rojo := 2, verde := 1, azul := 1} =
freq(List, #{}).

Answer 2

一个简单的方法是使用映射，通过这样做，您可以浏览列表，并检查映射是否具有正在处理的键，如果没有，则使用值 1 创建它，否则通过添加 1 来更新它。

freq([], Map) ->
Map;
freq([H|T], Map) ->
NewMap = case maps:find(H, Map) of
{ok, Value} -> Map#{H := Value + 1};         
_ -> Map#{H => 1}
end,
freq(T, NewMap).
List = [rojo, verde, rojo, azul],
freq(List, #{}).

Answer 3

与@rorra相同的答案，但使用 erlang 库和匿名函数：

1> List = [rojo, verde, rojo, azul].
[rojo,verde,rojo,azul]
2> Freq = fun(InputList) ->             
2>     lists:foldl(fun(Item,Acc)-> 
2>         Inc = fun(Count)-> Count+1 end,
2>         maps:update_with(Item,Inc,1,Acc)  
2>         end,
2>         #{},InputList)
2>     end.
#Fun<erl_eval.44.79398840>
3> Freq(List).
#{azul => 1,rojo => 2,verde => 1}

只是为了好玩。 罗拉的回答更适合从 Erlang 开始。