summaryrefslogtreecommitdiffstats
path: root/071.pl
diff options
context:
space:
mode:
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";