[project @ 2000-04-20 15:22:54 by panne]
[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: