[[ProjectEular]]

 -- Problem 15
 
 module Main (main) where
 
 main :: IO ()
 main = print $ problem15
 
 problem15 :: (Integral a) => a
 problem15 = combination 40 20
 
 combination :: (Integral a) => a -> a -> a
 combination n k = div (factorial n) (factorial k * factorial (n-k))
 
 factorial :: (Integral a) => a -> a
 factorial n = product [1..n]
トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS