« Project Euler : Problem 5 ~ 最小公倍数 | トップページ | Haskell で素数 »

2009年12月19日 (土)

Project Euler : Problem 6

 問題はこちらをご覧ください。

 今回はただ素直に計算しただけですね。

problem006 :: Int -> Int problem006 n = sumSquare n - squareSum n where sumSquare n = (sum [1 .. n]) ^ 2 squareSum n = sum [x ^ 2 | x <- [1 .. n]] main = print $ problem006 100

« Project Euler : Problem 5 ~ 最小公倍数 | トップページ | Haskell で素数 »

Haskell」カテゴリの記事

Project Euler」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/112020/47060206

この記事へのトラックバック一覧です: Project Euler : Problem 6:

« Project Euler : Problem 5 ~ 最小公倍数 | トップページ | Haskell で素数 »

2016年7月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            
フォト

最近のトラックバック

無料ブログはココログ