Welcome, guest! Login / Register - Why register?
[email protected] webmail now available. Want one? Go here.

Paste

N/A
Pasted as Haskell by joaopizani ( 11 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: