Problem 10 http://projecteuler.net/index.php?section=problems&id=10 200万までの素数を出さなければならない。 n = 2000000 is_prime n = all (\p -> mod n p /= 0) (takeWhile (\p -> p * p main = print(sum (filter is_prime [2..n-1]))ここでは素数…

もっと攻める方法を取りましょう。桁を増やしていって、数字を数えてダメならそこは捨てるという方法です。 まず、1桁だけで考えます。最初の桁は1です。これを2倍、3倍すると、最初の方は、2,3,4,5,6となるはずです。分数で考えて、[1, 7/6)ならこうなるは…

プロジェクトオイラー http://projecteuler.net/index.php?section=problems&id=275 出題が寝ている最中1時で、4時半になぜか目が覚めて枕もとのネットブックで問題を見てみた。まだ3人しか解けていない。回らない頭でなんとか問題を理解して考えた。バラン…