在Haskell中获取过滤的正负数的平均值

-- 定义包含正负数的列表
numbers = [1, -2, 3, -4, 5, -6]

-- 过滤出正数
positiveNumbers = filter (> 0) numbers

-- 过滤出负数
negativeNumbers = filter (< 0) numbers

-- 计算正数和负数的总和
sumOfPositiveNumbers = sum positiveNumbers
sumOfNegativeNumbers = sum negativeNumbers

-- 计算正数和负数的平均值
averageOfPositiveNumbers = sumOfPositiveNumbers / fromIntegral (length positiveNumbers)
averageOfNegativeNumbers = sumOfNegativeNumbers / fromIntegral (length negativeNumbers)

-- 打印结果
main = do
  putStrLn ("正数的平均值: " ++ show averageOfPositiveNumbers)
  putStrLn ("负数的平均值: " ++ show averageOfNegativeNumbers)