f# - Array.select 元组的元素

Question

这是我当前的代码:

placeId
|> Sql.getEOByPlace
|> Array.map (fun eo -> (eo, getType eo))  // (Item * ItemType option)
|> Array.filter (fun (i, it) -> it.IsSome)
|> Array.map (fun (i, it) -> (i, it.Value) // (Item * ItemType)

有什么办法可以简化最后三行代码吗？我需要类似于 Array.choose 的东西，但是对于元组的一个元素。

Answer 1

您可以返回(a * b)选项而不是a * b选项并使用Array.choose:

placeId
|> Sql.getEOByPlace
|> Array.choose (fun eo -> (getType eo) |> Option.map (t -> (eo, t)))