From 198cd9dce336d921f504fc11e03fce6ed906aec9 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 May 2009 02:28:41 -0500
Subject: solution to 53

---
 053.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 053.pl

diff --git a/053.pl b/053.pl
new file mode 100755
index 0000000..3c5b269
--- /dev/null
+++ b/053.pl
@@ -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";
-- 
cgit v1.2.3