python - 是否有与 Python 的 Counter 集合等效的 F#？

Question

希望将一些 Python 代码移植到 F#。我对这两种语言都不熟悉。 Python 代码使用“计数器”集合，“其中元素存储为字典键，它们的计数存储为字典值”。例如在 Python 中:

cnt = Counter()

for word in ['red', 'blue', 'red', 'green', 'blue', 'blue']
   cnt[word] += 1

cnt
Counter({'blue': 3, 'red': 2, 'green': 1})

>> # Tally occurrences of words in a list
>> cnt = Counter()

>> for word in ['red', 'blue', 'red', 'green', 'blue', 'blue']:

>> ... cnt[word] += 1

>> cnt

>> Counter({'blue': 3, 'red': 2, 'green': 1})

是否有与 Python 的计数器集合等效的 F#？

Answer 1

在 F# 中，状态变化如 cnt[word] += 1是可能的，但通常会避免。相反，计算是通过使用高阶函数来描述操作的意图来表达的，而不是使用命令式命令来描述机制。在这种情况下，典型的 F# 解决方案可能如下所示:

let counts =
    ["red"; "blue"; "red"; "green"; "blue"; "blue"]
    |> List.groupBy id
    |> Map.ofList
    |> Map.map (fun _ words -> words |> List.length)

在这里，我们采用相同的单词列表，然后我们使用 List.groupBy创建一个列表列表，我们将 id 传递给它函数表示我们要按值本身(列表中的单词)进行分组。单词列表实际上是 List.groupBy 的第二个参数, 但我们使用 |> ("pipe-forward") 运算符将前面的值作为最后一个参数传递给下一个函数。这很有用，因为它允许我们将操作链接在一起，正如我们在下一行中看到的那样，我们在其中获取 List.groupBy 返回的列表列表。并将其传递给 Map.ofList ，这给了我们一个 Map<string, string list> .

A Map type 允许我们通过键进行查找，比如 Counter类型。然后我们转换 Map<string, string list>进入Map<string, int>通过管道传输 Map.ofList 的结果来计算每个单词的计数进入Map.map ，它让我们传递一个函数，将映射中的值从一种类型转换为另一种类型。在这种情况下，我们要转换 string list 中的值到int , 所以我们取 string list (我们称之为“单词”)并将其传递给 List.length得到计数。 Map.map 的函数参数有两个参数，键和值，但我们只对值感兴趣，所以我通过调用它来忽略键参数 _ .这给了我们一个 Map<string, int>其中包含单词作为键，列表中该单词的计数作为值:

val counts : Map<string,int> = map [("blue", 3); ("green", 1); ("red", 2)]

编辑

正如 kvb 在评论中提到的，F# List模块已经有一个 countBy结合了 groupBy 的函数与 List.length为你。这使代码更加简单:

let counts =
    ["red"; "blue"; "red"; "green"; "blue"; "blue"]
    |> List.countBy id
    |> Map.ofList

这给出了与上面相同的结果，因为我们采用了 string * int 的列表元组并将其通过管道传输到 Map.ofList , 以便我们获得 map 的查找功能(如 Python Counter 对象)。