module Array.Example where
import Array
import Array.ShowInstances
-- Example arrays
example1 :: Array (Array Int)
example1 = fromList $ map fromList [ [1..10]
                                   , [17, 38]
                                   , [ ]
                                   , [1,7,3,8]
                                   ]
-- ArrNested (ArrInt [1,2,3,4,5,6,7,8,9,10,17,38,1,7,3,8]) 
--           (ArrPair (ArrIndex (ArrInt [0,10,12,12])
--                     ArrSize  (ArrInt [10,2,0,4])))


example2 :: Array (Array (Int, Int))
example2 = fromList $ map fromList [ [(1,2),(3,4),(5,6)]
                                   , [(7,8)]
                                   , [(9,10),(11,12)]
                                   ]