From 956d7b199353aa7d2a2d2fd440eed7ca568e9e6a Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 27 Aug 2011 21:12:00 -0400
Subject: [PATCH] Add another 1x20x1 example vector.

---
 src/Examples.hs | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/src/Examples.hs b/src/Examples.hs
index 62d4a00..4354ea6 100644
--- a/src/Examples.hs
+++ b/src/Examples.hs
@@ -84,4 +84,18 @@ naturals_list = [ [ [ 0, 1, 2 ],
                [ 24, 25, 26 ]]]
 
 naturals :: Values3D
-naturals = Repa.fromList (n_cube 3) $ flatten naturals_list
\ No newline at end of file
+naturals = Repa.fromList (n_cube 3) $ flatten naturals_list
+
+
+
+naturals_1d_list :: [[[Double]]]
+naturals_1d_list =[[[1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
+                     11, 12, 13, 14, 15, 16, 17, 18, 19, 20]]]
+
+
+twenty_vector :: Repa.DIM3
+twenty_vector = (Repa.Z Repa.:. 1 Repa.:. 20 Repa.:. 1)
+
+-- | Used in at least one test where we need a 1x20x1 array.
+naturals_1d :: Values3D
+naturals_1d = Repa.fromList twenty_vector (flatten naturals_1d_list)
-- 
2.43.2