From e4a7c4d35c6b44673832b8b7619bade64ea76727 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 May 2009 15:19:20 -0500
Subject: 71 solution

---
 071.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 071.pl

(limited to '071.pl')

diff --git a/071.pl b/071.pl
new file mode 100755
index 0000000..7222c6d
--- /dev/null
+++ b/071.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $lower = 428571 / 1e6;
+my $upper = 3 / 7;
+my $lower_numer = 0;
+for my $denom (1..1e6) {
+    my $closest = int($denom * 3 / 7);
+    my $closest_frac = $closest / $denom;
+    if ($closest_frac > $lower && $closest_frac < $upper) {
+        $lower = $closest_frac;
+        $lower_numer = $closest;
+    }
+}
+print "$lower_numer\n";
-- 
cgit v1.2.3