module Wrapper where

import qualified Data.Array.Parallel as P
import Data.Array.Parallel.PArray (fromList , (!:) , PArray )

import VectoriseMe

main :: IO ()
main = do 
  print $ interfaceSearch  ( u !: 4 ) v  


u , v :: PArray ( Int , Int , Double ) 
u = fromList  [ ( 1 ,1 , 1 ) , ( 2 , 1, 1 ) , ( 4 , 1, 1 ) , ( 1 , 4 , 1 ) , ( 2 , 4 , 1 ) , ( 4 , 4 , 1 ) ]
v = fromList  [  ( 1 , 1 , 1 ) , ( 3 , 1 , 1 ) , ( 4 , 1, 1) , ( 1 , 4 , 1 ) , ( 3 , 4, 1) , ( 4 , 4 , 1 ) ]