Ticket #7098: Main.hs

File Main.hs, 345 bytes (added by Prasanna, 21 months ago)
Line 
1import Data.Array.Parallel.PArray ()
2import qualified Data.Array.Parallel.PArray as P
3
4import CprodP (cprod_wrapper2)  -- import vectorised code
5--import NQueensP (nqueens_wrapper)
6main :: IO ()
7main
8  = let 
9        result = cprod_wrapper2 5    -- invoke vectorised code
10         -- result = length $ nqueens_wrapper 5
11    in
12    print result