ghc/tests/array/should_run/arr012.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