gistfile1.hs

import Data.Array.IArray
import Data.Array.Unboxed
 
sumA :: Array Int Int -> Int
sumA ary = foldl (\acc i -> acc + ary!i) 0 (indices ary)
 
main = do
  let ary = listArray (1, 10) [1..] :: Array Int Int
      uary = listArray (1, 10) [1..] :: UArray Int Int
  print $ sumA ary
  print $ sumA uary