计算项目的实例

Question

例如输入

["a", "b", "b", "c", "a"]

会导致输出

[("a", 2), ("b", 2), ("c", 1)]

我真的想不出在 elm 中执行此操作的实用方法

Answer 1

如果您可以使用 List.Extra.gatherEquals，那么您只需映射该函数的结果即可满足您的需要：

import List.Extra
List.map (\(x, y) -> (x, 1 + List.length y)) (List.Extra.gatherEquals ["a", "b", "b", "c", "a"])
-- [("a",2),("b",2),("c",1)]

Answer 2

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

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

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

大多数人喜欢在列表中使用 fold 而不是 case-ing，ellie 示例也包含该代码。

但方法是相同的：首先解决平凡的情况（空列表），然后递归函数直到遇到平凡的情况。

计算项目的实例

Count instances of item

elm