Evaluate binomial coefficients
say combinations(5, 3).elems;Output:
10sub infix:<choose> { [*] ($^n ... 0) Z/ 1 .. $^p }
say 5 choose 3;sub infix:<choose> { [*] ($^n ... 0) Z/ 1 .. min($n - $^p, $p) }sub infix:<choose> { ([*] ($^n ... 0) Z/ 1 .. min($n - $^p, $p)).Int }Last updated