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

そこにもう 1 つ追加することがあります。これを試してみてください。