Problem 53

Perl6

 1sub get-combination($n, $r) {
 2    my $numerator = [*] (1..$n);
 3    my $r-fact = [*] (1..$r);
 4    my $diff-fact = [*] (1..($n-$r));
 5    return $numerator/($r-fact * $diff-fact);
 6}
 7
 8my @n = (23..100);
 9my $ans = 0;
10for @n -> $this-n {
11    $ans += (1..$this-n).grep({get-combination($this-n, $_) > 1_000_000}).elems;
12}
13say $ans