« Project Euler : Problem 32 | トップページ | Project Euler : Problem 35 ~ 循環素数 »

2010年6月20日 (日)

Project Euler : Problem 33

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

 

 問題、そのままです。

import Ratio check :: Int -> Int -> Bool check n d -- n : 分子, d : 分母 | nr /= dq || dr == 0 = False | otherwise = n % d == nq % dr where (nq, nr) = divMod n 10 (dq, dr) = divMod d 10 problem033 :: Ratio Int problem033 = product xs where xs =[n % d | n <- [10 .. 98], d <- [n + 1 .. 99], check n d] main :: IO () main = print problem033

« Project Euler : Problem 32 | トップページ | Project Euler : Problem 35 ~ 循環素数 »

Haskell」カテゴリの記事

Project Euler」カテゴリの記事

コメント

コメントを書く

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

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

トラックバック

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

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

« Project Euler : Problem 32 | トップページ | Project Euler : Problem 35 ~ 循環素数 »

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

最近のトラックバック

無料ブログはココログ