[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / array / should_run / arr001.hs
1 -- !!! Simple array creation
2
3 import Array
4
5 main =
6  let a1 = array (1,3) (zip [2,3,1] ['a'..'d']) in
7  print a1
8
9 -- Result: