Hatena::Grouptopcoder

niha SRM

2010-05-26

member SRM 05:54

トラブルっちゃいましたね。

問題読み違え(そもそもちゃんと読んでない…)で 250 に滅茶苦茶時間かけちゃったので、ちょっとラッキーかもしれない!

多分 250 はこんなのでいいはず。

isPrime n = all (\i -> n `mod` i /= 0) $ takeWhile (\i -> i ^ 2 <= n) [2..]
solve n = length $ filter isPrime $ takeWhile (0 <) [n `div` 2 ^ i | i <- [1..]]

Haskell ですけども…てきとーーーーー

C++ のコードは「コンパイルできない!?」ってなって焦ってるときに、色々やってて間違えて消しちゃいました…開始前に TZTester を新しくしたのでそのせいかなーと思って大慌てしてたら、サーバーさんがお亡くなり。びっくりしました。

最大入力が 10,000,000 で、filter するリストの長さが log N で、isPrime が √N なので log N * √N で最大ケースでもまあ問題なさそう。手元のテストは問題なかった。サーバーさんでテストできませんでしたが…多分大丈夫。

KentKent2013/02/17 08:01This was so hepflul and easy! Do you have any articles on rehab?

bjcosxmrbjcosxmr2013/02/17 22:48exEzR3 <a href="http://ttqvumtirard.com/">ttqvumtirard</a>

rxfjouwrxfjouw2013/02/19 20:22YVSt86 , [url=http://wncvwxzunejm.com/]wncvwxzunejm[/url], [link=http://rbsxdwbygjja.com/]rbsxdwbygjja[/link], http://wfngsbfljvyr.com/