path: root/ghc/lib/tests/Array/arr001/Main.hs

-- Simple array creation

import Array

main =
 let a1 = array (1,3) (zip [2,3,1] ['a'..'d']) in
 print a1

-- Result: