summaryrefslogtreecommitdiffstats
path: root/071.pl
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-05-16 15:19:20 -0500
committerJesse Luehrs <doy@tozt.net>2009-05-16 15:19:20 -0500
commite4a7c4d35c6b44673832b8b7619bade64ea76727 (patch)
tree0569a3298529e129bc944562aa1a4750e1cc875a /071.pl
parent661f8268419e2961d06828b9625e90cd47b18f2f (diff)
downloadprojecteuler-e4a7c4d35c6b44673832b8b7619bade64ea76727.tar.gz
projecteuler-e4a7c4d35c6b44673832b8b7619bade64ea76727.zip
71 solution
Diffstat (limited to '071.pl')
-rwxr-xr-x071.pl16
1 files changed, 16 insertions, 0 deletions
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";