added n choose r (binomial coefficient) function