--/--/--

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

2008/10/05

Project Euler: Problem 7

Problem 7

問題文そのまま。素数を列挙し、10001番目をとりだす。

実行結果

$ runhaskell 7.hs
20003

プログラム

1 primes = sieve [2..]
2     where sieve (p:ps) = p : [x | x <- ps, x `mod` p /= 0]
3
4 main = print $ primes !! 10001
スポンサーサイト

comment

post




上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。