diff options
-rwxr-xr-x | 053.pl | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -0,0 +1,13 @@ +#!/usr/bin/perl +use strict; +use warnings; +use Math::Combinatorics; + +my $count = 0; +for my $n (1..100) { + for my $r (0..$n) { + my $num = factorial($n)/(factorial($r) * factorial($n - $r)); + $count++ if $num > 1e6; + } +} +print "$count\n"; |