
4 Nov
2004
4 Nov
'04
3:45 a.m.
On Thu, Nov 04, 2004 at 08:03:56AM +0100, Tomasz Zielonka wrote:
How about this?
let a' = addToFM_C (+) a x 1 in maybe () (`seq` ()) (lookupFM a' x) `seq` a'
It worked for me.
Of course, it is quite inefficient. If you care about constant factors, better use a FiniteMap with strict operations, like Hal's. Best regards, Tomasz -- .signature: Too many levels of symbolic links