[英]Is there a standard reverseLookup function?
我正在尋找具有以下功能簽名的東西
Eq b => b -> [(a, b)] -> Maybe a
您可以使用功能find :: (a -> Bool) -> [a] -> Maybe a
a- find :: (a -> Bool) -> [a] -> Maybe a
來自基本包的Data.List模塊中的a。 不幸的是,我現在無法測試代碼,但它可能像這樣:
sndLookup :: Eq b => b -> [(a, b)] -> Maybe a
sndLookup query = fst <$> find (\(_,b) -> b == query)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.