« Project Euler : Problem 14 ~ Collatz 問題とメモ化 | トップページ | Project Euler : Problem 16 ~ 整数のリスト化 »

2010年2月21日 (日)

Project Euler : Problem 15 ~ 組み合わせ

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

 

 組み合わせの問題。

-- 下降階乗冪 fallingFactorial :: Integral a => a -> a -> a fallingFactorial m n = product [m - n + 1 .. m] -- 組み合わせの数 combSize :: Integral a => a -> a -> a combSize n r = div (fallingFactorial n r) (fallingFactorial r r) problem015 :: Integral a => a -> a -> a problem015 m n = combSize (m + n) n main = print $ problem015 20 20

« Project Euler : Problem 14 ~ Collatz 問題とメモ化 | トップページ | Project Euler : Problem 16 ~ 整数のリスト化 »

Haskell」カテゴリの記事

Project Euler」カテゴリの記事

コメント

コメントを書く

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

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

トラックバック

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

この記事へのトラックバック一覧です: Project Euler : Problem 15 ~ 組み合わせ:

« Project Euler : Problem 14 ~ Collatz 問題とメモ化 | トップページ | Project Euler : Problem 16 ~ 整数のリスト化 »

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

最近のトラックバック

無料ブログはココログ