使用Haskell编写一个函数来计算一个列表中所有元素的和。

要使用Haskell编写一个函数来计算一个列表中所有元素的和，可以使用递归的方式来实现。以下是一个示例的实现：

sumList :: [Int] -> Int
sumList [] = 0
sumList (x:xs) = x + sumList xs

这个函数名为sumList，接受一个整数列表作为参数，并返回整数类型的和。函数定义包含两个模式匹配的情况：

- 如果列表为空（[]），表示计算已经完成，返回0作为和。

- 如果列表非空，将列表中的 个元素（x）与剩余元素列表（xs）分开，并递归调用sumList函数来计算剩余元素的和。然后将 个元素与剩余元素的和相加，得到最终的和。

下面是一些使用这个函数的示例：

main :: IO ()
main = do
  let numbers = [1, 2, 3, 4, 5]
  putStrLn $ "Sum of " ++ show numbers ++ " is " ++ show (sumList numbers)

  let emptyList = []
  putStrLn $ "Sum of " ++ show emptyList ++ " is " ++ show (sumList emptyList)

在main函数中，我们定义了一个整数列表numbers和一个空列表emptyList。然后，我们分别调用sumList函数计算这两个列表的和，并使用show函数将结果转换为字符串进行输出。

你可以在Haskell解释器（如ghci）中运行上述代码，或将其保存为一个.hs文件并使用Haskell编译器（如ghc）进行编译和执行。当运行程序时，它将输出以下结果：

Sum of [1,2,3,4,5] is 15
Sum of [] is 0

这些结果分别是列表[1, 2, 3, 4, 5]和空列表[]的和。