如何并行运行独立的 IO 操作列表？

Question

是否有与sequenceA对[IO a]做同样的事情，但同时运行它们的东西？ 我不需要任何花哨的并发东西，比如锁定，因为所有 IO 操作都是独立的。

Answer 1

async package 对此非常有效。 如评论中所述， mapConcurrently从 package 将并行运行 IO 操作列表。 特别是，专门用于列表，表达式mapConcurrently id具有您想要的类型：

mapConcurrently id :: [IO a] -> IO [a]

所以：

import Control.Concurrent.Async

main = mapConcurrently id [putStrLn "foo", putStrLn "bar"]

如果您不关心返回值，请改用mapConcurrently_ id 。

如果您实际上并不需要 IO 并且真的想并行运行一堆纯计算，那么parallel package 会更合适。