Hi,
I was toying with the Control.Parallel.Strategies library, but can't seem to
get it to actually do anything in parallel!

Here's the code:

import System.Random
import Control.Parallel.Strategies

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

main = print $ parMap rnf fib $ take 80 $ randomRs (30,35) (mkStdGen 123)


I compile with "-threaded", and run with +RTS -N2 -RTS, but yet it stays at
50% on my dual core machine!

I should point out that any manual threading with forkIO does indeed use
100% of the CPU, and this problem happens on my work computer too (Vista on
my home computer, XP on the work one).

Anything I'm missing here?

Thanks,

-- 
Sebastian Sylvan
+44(0)7857-300802
UIN: 44640862
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to