blob: 9992dd2315d3e06a99d9d5082bf682d3745aedda (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
-- Test for trac #2158
import Data.Array
data Pos = Pos Integer Integer
deriving (Show, Eq, Ord, Ix)
myBounds :: (Pos, Pos)
myBounds = (Pos 0 0, Pos 2 3)
main :: IO ()
main = do print $ range myBounds
print $ index myBounds (Pos 0 0)
print $ index myBounds (Pos 0 1)
print $ index myBounds (Pos 0 2)
print $ index myBounds (Pos 0 3)
print $ index myBounds (Pos 1 0)
print $ index myBounds (Pos 1 1)
print $ index myBounds (Pos 1 2)
print $ index myBounds (Pos 1 3)
print $ index myBounds (Pos 2 0)
print $ index myBounds (Pos 2 1)
print $ index myBounds (Pos 2 2)
print $ index myBounds (Pos 2 3)
print $ listArray myBounds [(123 :: Integer) ..]
|
