是否有標準的反向查看功能？

Question

我在尋找的東西用下面的函數簽名

Eq b => b -> [(a, b)] -> Maybe a 

Answer 1

你可以從基礎包模塊使用Data.List模塊功能find :: (a -> Bool) -> [a] -> Maybe a。不幸的是，我現在無法測試代碼，但它可能是這樣的：

sndLookup :: Eq b => b -> [(a, b)] -> Maybe a 
sndLookup query = fst <$> find (\(_,b) -> b == query)