RosettaCodeData/Task/Evaluate-binomial-coefficients/SequenceL/evaluate-binomial-coefficients-2.sequencel

choose(n,k) := binomial(n, k, 1, 1);

binomial(n, k, i, result) :=
	result when i > k else
	binomial(n, k, i + 1, (result * (n - i + 1)) / i);