31 Jul
2010
31 Jul
'10
2:30 a.m.
On Fri, 30 Jul 2010, Ben wrote:
dear traversable geniuses --
i am looking for "better" implementations of
unzipMap :: M.Map a (b, c) -> (M.Map a b, M.Map a c) unzipMap m = (M.map fst m, M.map snd m)
Maybe: mapPair (M.fromAscList, M.fromAscList) $ unzip $ map (\(a,(b,c)) -> ((a,b), (a,c))) $ M.toAscList m