testsuite/tests/ghc-regress/array/should_run/arr012.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

-- !!! Array map operations
-- 
--
module Main(main) where

import Data.Array
import Data.Char

main = 
 let 
  a1 = array (0,10) (zip [0..10] ['a'..'z'])
 in
 print a1 >>
 print (fmap (toUpper) a1) >>
 print (ixmap (3,8) (+1) a1)