我想将
[z,z,a,z,z,a,a,z]
转换为 [{z,2},{a,1},{z,2},{a,2},{z,1}]
。我该怎么办?
所以,我需要累积以前的值、它的计数器和元组列表。
我已创建记录
-record(acc, {previous, counter, tuples}).
重新定义
listToTuples([]) -> [];
listToTuples([H | Tail]) ->
Acc = #acc{previous=H, counter=1},
listToTuples([Tail], Acc).
但是我遇到了一些麻烦
listToTuples([H | Tail], Acc) ->
case H == Acc#acc.previous of
true ->
false ->
end.
如果您反向构建答案 (Acc),则前一个将成为该列表的开头。
我会这样做--
list_pairs(List) -> list_pairs(List, []).
list_pairs([], Acc) -> lists:reverse(Acc);
list_pairs([H|T], [{H, Count}|Acc]) -> list_pairs(T, [{H, Count+1}|Acc]);
list_pairs([H|T], Acc) -> list_pairs(T, [{H, 1}|Acc]).
(我希望现在有人会遵循单行列表理解版本..)
我将继续反向构建清单。注意第一行 X 上的模式匹配。
F = fun(X,[{X,N}|Rest]) -> [{X,N+1}|Rest];
(X,Rest) -> [{X,1}|Rest] end.
lists:foldr(F,[],List).
我个人会使用
lists:foldr/3
或手动使用类似的东西:
list_to_tuples([H|T]) -> list_to_tuples(T, H, 1);
list_to_tuples([]) -> [].
list_to_tuples([H|T], H, C) -> list_to_tuples(T, H, C+1);
list_to_tuples([H|T], P, C) -> [{P,C}|list_to_tuples(T, H, 1);
list_to_tuples([], P, C) -> [{P,C}].
使用两个累加器可以避免不必要地为列表中的每个元素构建和分离元组。我发现这样写更清晰。