On 16.03.2013 13:31, Azeem -ul-Hasan wrote:
> Nope that isn't the case either. Even if I make use of defaultSeed
> through create the problem still remains. The problem seems to be in the
> generation of a vector of (a,a) i.e in the part
>
> V.generateM ((round $ p*(fromIntegral $ l*z)) `div` 2) (\i-> R.uniformR
> ((0,0) , (l-1,l-1)) gen)
>
> in line 16. Thanks again.
>
I've tried to run you program and I've got approximately same results 
regardless of optimization level. Which versions of GHC, mwc-random, 
vector and primitive do you use?