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

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单子是正交的，不能与并行化/并发性一起使用。ST单子一开始让我有点困惑，这也是我问这个问题的原因之一。

Answer 1

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

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