Commits

dafis committed 82fa6a3

Adjust range to avoid overflow from random generator

Comments (0)

Files changed (1)

tests/benchmarking/benchmark.hs

 dun3 = length . show . F7
 
 mkDArr :: Int -> StdGen -> UArray Int Double
-mkDArr num = array (0,num) . zip [0 .. num] . randomRs (-1e308, 1e308)
+mkDArr num = array (0,num) . zip [0 .. num] . randomRs (-8.6e307, 8.6e307)
 
 mkFArr :: Int -> StdGen -> UArray Int Float
 mkFArr num = array (0,num) . zip [0 .. num] . randomRs (-1e37,1e37)