Colorless Sight Wiki / ProjectEular/Problem15

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]

最新の20件