Hi,<br>I was toying with the Control.Parallel.Strategies library, but can't seem to get it to actually do anything in parallel!<br><br>Here's the code:<br><br>import System.Random<br>import Control.Parallel.Strategies<br>
<br>fib :: Int -> Int<br>fib 0 = 1<br>fib 1 = 1<br>fib n = fib (n-1) + fib (n-2)<br><br>main = print $ parMap rnf fib $ take 80 $ randomRs (30,35) (mkStdGen 123) <br clear="all"><br><br>I compile with "-threaded", and run with +RTS -N2 -RTS, but yet it stays at 50% on my dual core machine!<br>
<br>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).<br><br>Anything I'm missing here?<br>
<br>Thanks,<br><br>-- <br>Sebastian Sylvan<br>+44(0)7857-300802<br>UIN: 44640862