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__
Approximations to this node:
Eagerly waiting for nodes 1618034, 6180340 and beyond!!
(Title, inspiration and a few suggestions courtesy of liverpole.)
In reply to Proporzione Divina by blazar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |