Project Eulerをhaskellで練習していく日記: Problem 10 - Qiita

問題 10未満の素数の和は、2 + 3 + 5 + 7 = 17 である。 同様に2000000未満の素数の和を求めよ。 回答 -- Atkinの篩 -- http://en.wikipedia.org/wiki/Sieve_of_Atkin -- を参考に実装しました import qualified List as L import qualified Data.Set as S limit=2000000::Integer --ふるいにかける上限 slimit = (truncate $ sqrt $ fromIntegral limit)::Integer -- 上限の平方 -- 条件のテンプレート gcond f g x y stack | x>slimit = stack | y>slimit = gcond f g (x+1) 1 stack | otherwise = if

[kasumani]

Project Eulerをhaskellで練習していく日記: Problem 10 10未満の素数の和は、2 + 3 + 5 + 7 = 17　である。 同様に2000000未満の素数の和を求めよ。 Tags: ifttt, kasumaniのストックした投稿 - qiita from Pocket August 21, 2014 at 12:45PM via IFTTT