標準のreverseLookup関数はありますか？

Question

私はあなたがベースパッケージからモジュールData.Listから機能find :: (a -> Bool) -> [a] -> Maybe aを使用することができ、次の関数のシグネチャ

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

Answer 1

で何かを探しています。残念ながら、今はコードをテストすることはできませんが、次のようになります。

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