在Haskell中更新列表的元组元素

-- 定义一个包含元组的列表
myList :: [(Int, String)]
myList = [(1, "apple"), (2, "banana"), (3, "orange")]

-- 更新列表中的元组元素
updateTuple :: Int -> String -> [(Int, String)] -> [(Int, String)]
updateTuple _ _ [] = []  -- 如果列表为空，则返回空列表
updateTuple index newValue (x@(i, v):xs)
  | index == i = (index, newValue) : xs  -- 如果索引匹配，则更新元组元素
  | otherwise = x : updateTuple index newValue xs  -- 否则继续递归处理剩余的列表

-- 测试更新元组元素的函数
main :: IO ()
main = do
  let updatedList = updateTuple 2 "pear" myList
  print updatedList