I implemented the programs for hash1 and hash2, but I had to
make a lot of changes to FiniteMap to get them to work:
- I changed foldl to foldl' (as defined in Hugs).
- I made foldFM strict (like foldl').
- I made the datatype FiniteMap strict (put !'s everywhere).
I put the programs below,
I think I have raised the issue some time ago, but don't remember
why it hasn't been solved as I would like to.
Currently a thread which is killed displays Fail: thread killed,
e.g. in the following program:
import Concurrent
main:: IO ()
main = do
t - forkIO (threadDelay 100)
