« Project Euler : Problem 41 ~ Pandigital な素数 | トップページ | Project Euler : Problem 43 »

2010年8月 6日 (金)

Project Euler : Problem 42

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

 

 すみません。何の工夫もしていません。

import ForEuler (isPolyNum) import Data.Char problem042 :: [String] -> Int problem042 ns = length $ filter isTriangle [wordValue x | x <- ns] where isTriangle = isPolyNum 3 wordValue cs = sum [ord c - ord 'A' + 1 | c <- cs] main :: IO () main = do ss <- readFile "words.txt" print $ problem042 $ read ("[" ++ ss ++ "]")

« Project Euler : Problem 41 ~ Pandigital な素数 | トップページ | Project Euler : Problem 43 »

Haskell」カテゴリの記事

Project Euler」カテゴリの記事

コメント

コメントを書く

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

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

トラックバック

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

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

« Project Euler : Problem 41 ~ Pandigital な素数 | トップページ | Project Euler : Problem 43 »

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

最近のトラックバック

無料ブログはココログ