如何优化列表理解的总和

Question

我必须做一个大的计算（用于统计），但是如果n接近100，则以下函数使得haskell没有说什么，但我必须使n = 500.当我删除其中一个因素时（例如SetOfDataPoints::paint()事情变得更好。任何想法如何使总和更有效？另外，选择＆＃39;功能来自优化的库（hackage说）。非常感谢

(p**fromIntegral l))