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)
我不喜欢我多次迭代列表并且看起来很复杂的事实。有没有办法简化这个?
最佳答案
如果您需要多次查找 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"
关于f# - 从列表映射到另一种类型 - 有没有更好的方法来做到这一点?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/67130872/