f# - 从列表映射到另一种类型 - 有没有更好的方法来做到这一点？

Question

let claimsList  =  
          [ {|cType = "uid"; cValue="1"|};
            {|cType = "name"; cValue="N1"|}; 
            {|cType = "sid"; cValue="sid1"|}; 
            {|cType = "email"; cValue="email@N1.com"|}; 
            {|cType = "company"; cValue="Company1"|}]

let email = claimsList
          |> List.tryFind(fun c -> c.cType = "email")
          |> Option.map(fun c -> c.cValue)
let company = claimsList
            |> List.tryFind(fun c -> c.cType = "company")
            |> Option.map(fun c -> c.cValue)
let userId = claimsList
           |> List.tryFind(fun c -> c.cType = "userId")
           |> Option.map(fun c -> c.cValue)

(email, userId, company)

我不喜欢我多次迭代列表并且看起来很复杂的事实。有没有办法简化这个？

Answer 1

如果您需要多次查找 claim ，并且它们都有不同的 cType s，您可以将列表转换为 map ，然后在其中查找:

let map = claimsList |> List.map (fun r -> r.cType, r.cValue) |> Map.ofList

let email = map.["email"]
let company = map.["company"]
let userId = map.["uid"]

请注意，索引如 map.["email"]如果键不在 map 中，将在运行时崩溃。如果丢失的键“通常不应该发生”，这很好，但是如果您想优雅地处理这种情况，请使用 Map.tryFind相反，它会返回一个 option :

let email = map |> Map.tryFind "email"