Infernu.Lib

Documentation

matchZip :: [a] -> [b] -> Maybe [(a, b)]

safeLookup :: Eq a => [(a, a)] -> a -> a

flipMap :: (Ord k, Ord v) => Map k v -> Map v (Set k)

Creates an inverse map. Multiple keys mapping to the same values are collected into Sets.

>>> flipMap $ Map.fromList [(1,2),(2,2)]
fromList [(2,fromList [1,2])]

splatMap :: Ord k => Map (Set k) a -> Map k a