RosettaCodeData/Task/Evaluate-binomial-coefficients/Haskell/evaluate-binomial-coefficients-1.hs

choose :: (Integral a) => a -> a -> a
choose n k = product [k+1..n] `div` product [1..n-k]
	`choose :: (Integral a) => a -> a -> a`
	choose n k = product [k+1..n] `div` product [1..n-k]