3 Nov
2004
3 Nov
'04
9:51 a.m.
Hi!
merge' a x = let r = addToFM_C (+) a x 1 in r `seq` r but it doesn't help.
== an anecdote
A quick note, x `seq` x is always exactly equivalant to x. the reason being that your seq would never be called to force x unless x was needed anyway.
;-)) Ok. 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? -- Alexander Kogan Institute of Applied Physics Russian Academy of Sciences