haskell中的公平并发`map`函数？

Question

说我模拟某种形式的网络，并且具有在陈平的列表广播值的函数：

broadcast :: a -> [Receiver] -> IO() 
broadcast a = mapM_ (send a) 

为了这“送”的数据，每个接收器。相反，我想不确定地向所有的接收者进行广播。

感谢您的任何线索。

Answer 1

http://hackage.haskell.org/package/random-shuffle-0.0.2

broadcast a rs = do 
    g <- newStdGen 
    mapM_ (send a) $ shuffle' rs (length rs) g 

Answer 2

如何只使用GHC的并发？

broadcast :: a -> [Receiver] -> IO() 
broadcast a = mapM_ (forkIO . send a) 

然后确保使用线程化RTS（与ghc -threaded一起编译）。