Question

import Picosat
import Control.Applicative

main :: IO ()
main = do
  dimacsList1 <- (read <$> getLine) :: IO [[Integer]]
  dimacsList2 <- (read <$> getLine) :: IO [[Integer]]

  res1 <- solve dimacsList1
  res2 <- solve dimacsList2

  putStrLn $ (show res1) ++ "  " ++ (show res2)

问题： 如何更改上面的示例以并行运行两个sat调用，即使用并发？如果有不同的选择，我对表现很感兴趣。

（只是为了检查：据我所知，ST monad是正交的，不能与并行化/并发性一起使用.ST monad一开始就把我弄糊涂了，这是我问这个问题的原因之一。）

Answer 1

最简单的方法是使用async库。也许是这样的事情。

[res1, res2] <- mapConcurrently solve [dimacsList1, dimacsList2]

如何使用picosat haskell绑定并行运行SAT调用？

1 个答案: