如何将parmap与一元函数一起使用?

应该在control.concurrent.mvar周围使用control.concurrent和synchronize;类似于:

fork1 :: (a -> IO b) -> a -> IO (MVar b)
fork1 f x =
  do
    cell <- newEmptyMVar
    forkIO (do { result <- f x; putMVar cell result })
    return cell

fork :: (a -> IO b) -> [a] -> IO [MVar b]
fork f = mapM (fork1 f)

join :: [MVar b] -> IO [b]
join = mapM takeMVar

forkJoin :: (a -> IO b) -> [a] -> IO [b]
forkJoin f xs = (fork f xs) >>= join

部分内容(分叉、连接) 看 相继的。在实践中发生的是线程在fork中按顺序被触发,集合依次通过等待每个线程。但是IO同时发生。

请注意,如果需要调用外部函数,则应使用 forkOS 而不是福基奥。

还有一个monad并行包,它提供 mapM :: MonadParallel m => (a -> m b) -> [a] -> m [b] . 看看MonadParallel的IO实例,它的工作方式与Dominic的回答相同。