http://www.perlmonks.org?node_id=618034

Perfect Proportion is reached
As node Golden Ratio of 10**6 is hit
And PerlMonks goes even stronger...
#!/usr/bin/perl

use strict;
use warnings;

print <<'INTRO';
<p>Approximations to this node:</p>

<ul>
INTRO

my ($F,$G,$og)=(2,1,'');
while (1) {
    (my $g=sprintf '%0.6f', $G/$F) =~ s/^0\.//;
    last if $g eq $og;
    print "<li>[id://$g]</li>\n";
    ($F,$G,$og)=($F+$G,$F,$g);
}

print "</ul>\n";

__END__

[download]

Approximations to this node:

Eagerly waiting for nodes 1618034, 6180340 and beyond!!

(Title, inspiration and a few suggestions courtesy of liverpole.)

Back to Perl Poetry