Metered concurrency: Difference between revisions

Metered concurrency (view source)

156 bytes added , 2 years ago

→‎{{header|Haskell}}: Specified imports, applied Ormolu, swapped print for putStrLn

9,655

edits

Revision as of 01:16, 2 June 2022 (view source) Rdm (talk \| contribs) m (→‎{{header\|J}}) ← Older edit		Revision as of 09:44, 2 June 2022 (view source) Hout (talk \| contribs) (→‎{{header\|Haskell}}: Specified imports, applied Ormolu, swapped print for putStrLn) Newer edit →
Line 910: <lang Haskell>import Control.Concurrent ( newQSem, import Control.Monad▼ signalQSem, waitQSem, threadDelay, forkIO, newEmptyMVar, putMVar, takeMVar, QSem, MVar ) ▲import Control.Monad ( replicateM_ ) worker :: QSem -> MVar String -> Int -> IO () worker q m n = do waitQSem q putMVar m $ "Worker " ++<> show n ++<> " has acquired the lock." threadDelay 2000000 -- microseconds! signalQSem q putMVar m $ "Worker " ++<> show n ++<> " has released the lock." main :: IO () main = do q <- newQSem 3 m <- newEmptyMVar let workers = 5 prints = 2 * workers mapM_ (forkIO . worker q m) [1 .. workers] replicateM_ prints $ takeMVar m >>= ~~print~~putStrLn</lang> ==Icon and {{header\|Unicon}}==