История изменений

Исправление qnikst, 10.09.13 15:19 (текущая версия) :

лучше вообще своё время на это не тратить, честно.

вот код получше:

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, 10.09.13 15:19:

лучше вообще своё время на это не тратить, честно.

вот код получше:

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, 10.09.13 15:18:

лучше вообще своё время на это не тратить, честно.