如何编写Haskell数组策略

import Data.Array

-- 创建一个数组
myArray :: Array Int Int
myArray = array (1, 10) [(i, i * 2) | i <- [1..10]]

-- 获取数组中的元素
getElement :: Int -> Int
getElement index = myArray ! index

-- 更新数组中的元素
updateElement :: Int -> Int -> Array Int Int
updateElement index value = myArray // [(index, value)]

-- 遍历数组
traverseArray :: Array Int Int -> [Int]
traverseArray arr = elems arr

-- 示例
main :: IO ()
main = do
  putStrLn "原始数组："
  print myArray

  putStrLn "获取第3个元素："
  print (getElement 3)

  putStrLn "更新第3个元素为100："
  let updatedArray = updateElement 3 100
  print updatedArray

  putStrLn "遍历数组："
  print (traverseArray updatedArray)