Исправление qnikst, (текущая версия) :
лучше вообще своё время на это не тратить, честно.
вот код получше:
import qualified Data.Vector.Unboxed as U
import System.Random.Mersenne.Pure64
import qualified Data.Vector.Random.Mersenne as G
main = do
g <- newPureMT
let vec = G.randoms g 3000000 :: (U.Vector Double)
print . U.sum $ U.map (^2) vec
Исправление qnikst, :
лучше вообще своё время на это не тратить, честно.
вот код получше:
import qualified Data.Vector.Unboxed as U
import System.Random.Mersenne.Pure64
import qualified Data.Vector.Random.Mersenne as G
main = do
g <- newPureMT
let vec = G.randoms g 3000000 :: (U.Vector Double)
print . U.sum $ U.map (^2) vec
Исходная версия qnikst, :
лучше вообще своё время на это не тратить, честно.