Welcome, guest! Login / Register - Why register?
Psst.. new poll here.
[email protected] webmail now available. Want one? Go here.
Cannot use outlook/hotmail/live here to register as they blocking our mail servers. #microsoftdeez
Obey the Epel!

Paste

Pasted as Haskell by joaopizani ( 13 years ago )
module Main where

import System.Random (newStdGen)
import Data.Array.Parallel.PArray (PArray, randomRs)
import Data.Array.Parallel.Prelude
import DPHVecMul (dotp)


main = do gen1 <- newStdGen
   gen2 <- newStdGen

   let n = 10000
       r = (-100, 100)

   let v = randomRs n r gen1 :: PArray Double
       w = randomRs n r gen2 :: PArray Double

   print $ fromPArrayP v
   print "\n\n\n"
   print $ fromPArrayP w

 

Revise this Paste

Your Name: Code Language: