计算项目的实例

3nt*_*nt3 1 elm

例如输入

["a", "b", "b", "c", "a"]
Run Code Online (Sandbox Code Playgroud)

会导致输出

[("a", 2), ("b", 2), ("c", 1)]
Run Code Online (Sandbox Code Playgroud)

我真的想不出一种在榆树中做到这一点的实用方法

mar*_*rcw 5

使用现有代码是一个好主意,但我认为了解这些概念也很有意义:

为了解决这个需求,您使用递归函数遍历列表并构建一个中间数据结构。在这种情况下是字典,因为它非常适合计算字符串的出现次数。然后在遍历列表并计算所有元素后,将其转换为元组列表。

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 示例也包含该代码。

但是方法是一样的:先解决平凡的案例(空列表),然后递归函数,直到遇到平凡的案例。