On 2004 November 03 Wednesday 09:51, Alexander Kogan wrote:
> merge' a x = (addToFM (+) $! a) x 1
> is not strict.
> Can I do something to make FiniteMap strict?
> Or the only way is to make my own StrictFiniteMap?
You can replace
addToFM_C (+) a x 1
with
let a' = addToFM_C (+) a x 1 in
lookupFM a' x `seq` a'
or you can generalize that into your own strict version of addToFM_C. It's a
little ugly, but probably gets the job done.
_______________________________________________
Haskell-Cafe mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell-cafe
