ghc/lib/tests/Array/arr012/Main.hs

   1 -- Array map operations
   2 --
   3 --
   4 module Main(main) where
   5
   6 import Array
   7 import Char
   8
   9 main =
  10  let
  11   a1 = array (0,10) (zip [0..10] ['a'..'z'])
  12  in
  13  print a1 >>
  14  print (map (toUpper) a1) >>
  15  print (ixmap (3,8) (+1) a1)
  16
  17
  18
  19