例如输入
["a", "b", "b", "c", "a"]
Run Code Online (Sandbox Code Playgroud)
会导致输出
[("a", 2), ("b", 2), ("c", 1)]
Run Code Online (Sandbox Code Playgroud)
我真的想不出一种在榆树中做到这一点的实用方法
使用现有代码是一个好主意,但我认为了解这些概念也很有意义:
为了解决这个需求,您使用递归函数遍历列表并构建一个中间数据结构。在这种情况下是字典,因为它非常适合计算字符串的出现次数。然后在遍历列表并计算所有元素后,将其转换为元组列表。
https://ellie-app.com/cLBnWHSBj5ta1 上的完整代码
gather : List comparable -> Dict comparable Int -> List ( comparable, Int )
gather list dict =
case list of
[] ->
Dict.toList dict
first :: rest ->
let
count =
case Dict.get first dict of
Just value ->
value + 1
Nothing ->
1
in
Dict.insert first count dict
|> gather rest
Run Code Online (Sandbox Code Playgroud)
大多数人喜欢在列表中使用fold而不是case-ing , ellie 示例也包含该代码。
但是方法是一样的:先解决平凡的案例(空列表),然后递归函数,直到遇到平凡的案例。