diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-05-16 15:19:20 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-05-16 15:19:20 -0500 |
commit | e4a7c4d35c6b44673832b8b7619bade64ea76727 (patch) | |
tree | 0569a3298529e129bc944562aa1a4750e1cc875a /071.pl | |
parent | 661f8268419e2961d06828b9625e90cd47b18f2f (diff) | |
download | projecteuler-e4a7c4d35c6b44673832b8b7619bade64ea76727.tar.gz projecteuler-e4a7c4d35c6b44673832b8b7619bade64ea76727.zip |
71 solution
Diffstat (limited to '071.pl')
-rwxr-xr-x | 071.pl | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -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"; |