使用Haskell编写一个计算平均值的函数

下面是一个使用Haskell编写的计算平均值的函数，并附带一个使用例子：

module Main where

-- 函数：计算平均值
average :: [Double] -> Double
average [] = 0  -- 空列表返回0
average list = sum list / fromIntegral (length list)  -- 计算平均值

-- 使用例子
main :: IO ()
main = do
    let values = [1.0, 2.5, 3.7, 4.2, 5.9]
    let result = average values
    putStrLn $ "平均值为: " ++ show result

在这个例子中，我们定义了一个名为average的函数，它接受一个Double类型的列表作为参数，并返回一个Double类型的结果。如果列表为空，函数将返回0作为平均值。否则，它将列表中所有元素的总和除以列表长度的浮点数值来计算平均值。

在main函数中，我们首先声明了一个名为values的列表，它包含了一些浮点数值。接下来，我们调用average函数，并将values作为参数传递给它。最后，我们使用putStrLn函数打印出计算出的平均值。

运行这个程序，你会看到输出结果是：

平均值为: 3.46

这是根据输入的列表值计算出的平均值。

希望这个例子能够帮助你使用Haskell编写一个计算平均值的函数。如果你有任何其他问题，可以继续提问。