Haskell中一系列函数的优化

Question

我正在尝试在项目 euler 中解决问题 254，并在 Haskell 中得到了这组函数和重构：

f  n = sum $ map fac (decToList n)
sf n = sum $ decToList (f n) 
g  i = head [ n | n <- [1..], sf n == i]
sg i = sum $ decToList (g i)

answer = sum [ sg i | i <- [1 .. 150] ]

地点：

• f (n) 求n 中每个数字的阶乘之和
• sf (n) 是 f (n) 结果中的数字之和
• g (i) 是 sf (i) 的最小整数解。因为sf (i) 可以有很多结果
• sg (i) 是 g (i) 结果中的数字之和

但在运行此脚本的编译版本后不久，它就占用了我所有的 RAM。有没有更好的方法来实现函数g (i)？如果是这样，它们会是什么？我该怎么做？

编辑：

为了清楚起见，我的功能是：

fac 是：

`fac 0 = 1`

`fac n = n * fac (n-1)`

decToList 将数字放入列表中：

decToList1 x = reverse $ decToList' x
where
decToList' 0 = []
decToList' y = let (a,b) = quotRem y 10 in [b] ++ decToList' a

虽然为了优化起见，我已经将它们更新为 Yairchu 的解决方案。

Answer 1

内存问题可能出在 decToList 或 fac 中。

我用它运行过

fac = product . enumFromTo 1
decToList = map (read . return) . show
main = print answer

而且它并没有接近吸尽我所有的 RAM，但它并没有完成。

顺便说一句：我怀疑高级项目欧拉问题比这更难。所以这个算法不行。