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

Answer 1

最简单的方法是使用async库。大概是这样吧。

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