列出元组转换列表 [英] List to list of tuples convertion

问题描述

我想将 [z，z，a，z，z，a，a，z] 转换为 [{z，2} ，{A，1}，{Z，2}，{A，2}，{Z，1}] 。我该怎么做？

I want to convert [z,z,a,z,z,a,a,z] to [{z,2},{a,1},{z,2},{a,2},{z,1}]. How can I do it?

所以，我需要积累以前的价值，它的计数器和元组列表。

So, I need to accumulate previous value, counter of it and list of tuples.

我创建了记录

-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） ，以前将是该列表的头。

if you build up your answer (Acc) in reverse, the previous will be the head of that list.

这是我该怎么做 -

here's how i would do it --

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]).

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

这篇关于列出元组转换列表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！