Am 23.07.2011 03:40, schrieb Dennis Raddle:
...
> listOutMap :: Ord k => Map k [a] -> [(k,a)]
> listOutMap m = concatMap (\(k,a) -> zip (repeat k) a) (M.toList m)
...
instead of "zip" and "repeat" I prefer just "map":
"\ (k, as) -> map (\ a -> (k, a)) as"
(and don't bother to switch on TupleSections for "(k,)")
C.