在haskell中公平并发`map`功能？

Question

假设我正在模拟某种类型的网络，并且有一个函数可以在Chans列表中广播一个值：

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

这将按顺序将数据“发送”到每个接收器。我希望不确定地向所有接收者广播。

感谢您提供任何线索。

Answer 1

如何使用GHC的并发性？

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

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

Answer 2

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

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