
4 Nov
2004
4 Nov
'04
1:48 a.m.
Hi!
You can replace addToFM_C (+) a x 1 with let a' = addToFM_C (+) a x 1 in lookupFM a' x `seq` a'
it is not strict also.
or you can generalize that into your own strict version of addToFM_C. It's a little ugly, but probably gets the job done.
Ohh.. -- Alexander Kogan Institute of Applied Physics Russian Academy of Sciences