« Project Euler : Problem 53 その2 | トップページ | Project Euler : Problem 56 »

2010年11月29日 (月)

Project Euler : Problem 55

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

 

 今回は、問題文を素直にコードにしてみました。

import ForEuler isLychrel :: Integer -> Bool isLychrel n | null ans = True | otherwise = False where ans = [x | x <- take 50 $ tail $ iterate reversePlus n, isPalindromic x] reversePlus n = n + (listToDex . reverse . dexToList) n problem055 :: Int problem055 = length $ filter isLychrel [1 .. 10000] main :: IO () main = print problem055
 数を反転するのに (listToDex . reverse . dexToList) という合成関数を使ってみました。

« Project Euler : Problem 53 その2 | トップページ | Project Euler : Problem 56 »

Haskell」カテゴリの記事

Project Euler」カテゴリの記事

コメント

コメントを書く

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

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

トラックバック

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

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

« Project Euler : Problem 53 その2 | トップページ | Project Euler : Problem 56 »

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

最近のトラックバック

無料ブログはココログ