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

Add a code snippet to your website: www.paste.org