Felipe Lessa wrote:
On Thu, Feb 21, 2008 at 8:58 AM, Luke Andrew [EMAIL PROTECTED] wrote:
test2.hs:
import Control.Parallel
fib1 n = if n == 0 then 0 else if n == 1 then 1 else fib1 (n-1) +
fib1 (n-2)
fib2 n = if n == 0 then 0 else if n == 1 then 1 else fib2 (n-1) +
fib2 (n
PROTECTED]:~/mcls$ time ./test2 +RTS -N2
[2,2,4,6,10,16,26,42......405774,18454930,29860704,48315634]
real0m15.268s
user0m15.169s
sys 0m0.013s
I've tried using bang patterns in various places, but to no avail. Any
ideas?
Luke Andrew