小编Hel*_*ere的帖子

我想用来map从列表的每个元素中减去列表的平均值map。到目前为止，我得到了这个计算平均值的函数：

averageOfList :: [Float] -> Float
averageOfList [] = 0
averageOfList a = ((foldl (+) 0 a) / fromIntegral(length a))

名单是[1.3,1.7,3.3,1.0,3.3]。我究竟如何使用平均函数map从每个元素中减去？