module Math where

factorial :: Integer -> Integer
factorial 0 = 1
factorial n = n * factorial(n - 1)

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

perm :: Integer -> Integer -> Integer
perm m n = (factorial m) `div` (factorial (m - n))