From 1640830bf5dc0630481e698512064215eb3e8249 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 10 Oct 2021 19:55:59 +0200 Subject: WIP --- test/Examples/Test.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 test/Examples/Test.hs (limited to 'test/Examples/Test.hs') diff --git a/test/Examples/Test.hs b/test/Examples/Test.hs new file mode 100644 index 0000000..f3df311 --- /dev/null +++ b/test/Examples/Test.hs @@ -0,0 +1,10 @@ +module Examples.Test (afun) where + +import Data.Array.Accelerate + + +afun :: Acc (Matrix Int, Vector (Int, Int)) + -> Acc (Matrix Int) +afun (T2 a b) = generate (I2 2 3) (\(I2 i j) -> + let T2 x y = b ! I1 i + in i * j + a ! I2 i j + x * y) -- cgit v1.2.3-70-g09d2