« Project Euler : Problem 38 ~ Pandigital な連結積 | トップページ | Project Euler : Problem 40 »

2010年7月28日 (水)

Project Euler : Problem 39 ~ ピタゴラス数 その2

 問題はこちらをご覧ください。
 また、自作の "ForEuler module" に関してはこちらをご覧ください。

 

 この問題は、「Problem 9」でも使用した「pythagoreanNums 関数」を使っています(ただし、ForEuler.hs に書いた pythagoreanNums のコードは「Problem 9」に書いたコードをちょっと改良してあります)。
 pythagoreanNums の考え方についてはこちらをご覧ください。

import Data.Ord (comparing) import Data.List (maximumBy) import ForEuler (pythagoreanNums) problem039 :: Int problem039 = fst $ maximumBy (comparing snd) xs where xs = [(x, length $ pythagoreanNums x) | x <- [1 .. 1000]] main :: IO () main = print problem039

« Project Euler : Problem 38 ~ Pandigital な連結積 | トップページ | Project Euler : Problem 40 »

Haskell」カテゴリの記事

Project Euler」カテゴリの記事

コメント

コメントを書く

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

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

トラックバック

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

この記事へのトラックバック一覧です: Project Euler : Problem 39 ~ ピタゴラス数 その2:

« Project Euler : Problem 38 ~ Pandigital な連結積 | トップページ | Project Euler : Problem 40 »

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            
フォト

最近のトラックバック

無料ブログはココログ