如何将列表转换为元组列表？

我想转换[z,z,a,z,z,a,a,z] to [{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]).

（我希望有人现在会遵循单行列表理解版本..）