windelicato · April 5, 2013 02:48
diff --git a/15.hs b/15.hs
 factorial ::  Integer -> Integer                                                
 factorial n = foldr (*) 1 [1..n]

 choose ::  Integer -> Integer -> Integer
 choose n k = (factorial n) `div` ((factorial k) * (factorial (n - k)))

 main ::  IO ()
 main = print $ choose 40 20
	factorial :: Integer -> Integer
	factorial n = foldr (*) 1 [1..n]

	choose :: Integer -> Integer -> Integer
	choose n k = (factorial n) `div` ((factorial k) * (factorial (n - k)))

	main :: IO ()
	main = print $ choose 40 20
No results found