如何並行運行獨立的 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 會更合適。