dictionary - 如何通过 F# 中的键将两个 map 相交

Question

我想将两个具有公用键的 F# Map 与具有公用键和两个值的元组作为其值的 Map 相交。

即签名类似于:

Map<K, T1> -> Map<K, T2> -> Map<K, T1 * T2>

有什么简单的功能性和高性能的方法吗？

我知道我可以将键集相交然后构建一个新 map ，我只是想做一些不那么脏的事情......

Answer 1

我之前也遇到过类似的问题，最后这样解决了:

let intersect a b = Map (seq {
    for KeyValue(k, va) in a do
        match Map.tryFind k b with
        | Some vb -> yield k, (va, vb)
        | None    -> () })