[Haskell-cafe] Re: Processing of large files
alexander at kogan.nnov.ru
Tue Nov 2 03:53:52 EST 2004
Now I try to use FiniteMap to speed up the processing.
merge' :: FiniteMap String Integer -> String -> FiniteMap String Integer
merge' a x = addToFM_C (+) a x 1
parse' :: [String] -> [(String, Integer)]
parse' x = fmToList $ foldl' merge' emptyFM x
Where should I add `seq` to make FiniteMap strict?
merge' a x = let r = addToFM_C (+) a x 1 in r `seq` r
but it doesn't help.
Institute of Applied Physics
Russian Academy of Sciences
More information about the Haskell-Cafe