https://github.com/simonmar/parconc-examples
Tip revision: a6c89f015584a2cc2f3b01356b0d6ed5cd0f0a67 authored by Simon Marlow on 08 November 2021, 09:52:23 UTC
Merge pull request #34 from ehigham/master
Merge pull request #34 from ehigham/master
Tip revision: a6c89f0
threadperf1.hs
import Control.Concurrent
import Control.Monad
-- <<main
numThreads = 1000000
main = do
m <- newEmptyMVar
replicateM_ numThreads $ forkIO (putMVar m ())
replicateM_ numThreads $ takeMVar m
-- >>