fact n = product [1..n]
Conbi n r = (fact n) `div` ((fact r)*(fact (n-r)))

したらなんか結果が優秀なんだけど
途中計算で約分してるとしか思えない