--/--/--

スポンサーサイト

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

2008/09/30

Project Euler: Problem 1

Problem1

特に何も考えず、数列を作って合計をとる。

実行結果

$ runhaskell 1.hs
233168

プログラム

1 = sum $ filter (\-> n `mod` 3 == 0 ||
2                         n `mod` 5 == 0)
3                  [1..999]
4
5 main = print $ f
スポンサーサイト

comment

post




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