list - 在 Haskell 中计算 3 和 5 的倍数之和时出现内存不足错误

Question

这是我的代码：

import Data.Bits

main = print . sum . takeWhile( < 200000) $ multSum 999

multSum m = 3 : multiples [6..m]  where
    multiples (p:xs) 
       | ((p `mod` 3 == 0)  || (p `mod` 5 == 0)) = p : multiples([p..m])
       | otherwise = p : xs

错误：内存不足（请求 1048576 字节）

我哪里错了？

Answer 1

multSum没有做你认为的那样。直接调试试试：

*Main> take 20 $ multSum 999
[3,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6]

Answer 2

multSum返回所有参数的无限列表[3,6,6,6,6...]，因此它永远不会超过 200000，因此无法打印您请求的总和。

Answer 3

尝试

mults35 m = multiples [3..m] .....
  ............
  ....| ......    = p : multiples xs
  ... | otherwise =     multiples xs

还有一件事需要你添加。试试这个，你会看到的。