Welcome, guest! Login / Register - Why register?
[ Pastes: 81325 ] [ Members: 2134 ]

Paste

Short URL: N/A
Pasted as Haskell by joaopizani on Tuesday, September 28th, 2010 12:00am ( 6 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:

To minimise the influx of spam: you are required to register to post any code.