threadscope test

gistfile1.txt

import Control.Parallel.Strategies

fib :: Integer -> Integer
fib 0 = 0
fib 1 = 1
fib n = fib (n-1) + fib (n-2)

main = do
  let (rx, ry) = runEval $ do
       x <- rpar $ fib 38 `seq` (undefined :: Integer)
       y <- rpar (fib 40)
       return (x,y)
  print ry
  print rx