Re: [Haskell] Pugs gains SMP parallelism support.

On 10/21/06, Audrey Tang <autrijus@gmail.com> wrote:

I wonder if there is a more efficient way doing this...

I would use an IOArray: let l = length xs arr <- newArray_ (0, l) count <- newQSemN 0 let proc n x = do rv <- runEvalIO env (reduce x) writeArray arr n rv signalQSemN count 1 sequence_ $ zipWith proc [0..] xs waitQSemN count l elems $ unsafeFreeze arr STM might work better than a QSemN... -- Taral <taralx@gmail.com> "You can't prove anything." -- Gödel's Incompetence Theorem