Feigenbaum constant calculation: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl6 example) |
|||
Line 107: | Line 107: | ||
13 4.66920537 |
13 4.66920537 |
||
</pre> |
</pre> |
||
=={{header|Perl 6}}== |
|||
{{works with|Rakudo|2018.04.01}} |
|||
{{trans|Ring}} |
|||
<lang perl6>my $a1 = 1; |
|||
my $a2 = 0; |
|||
my $d = 3.2; |
|||
say ' i d'; |
|||
for 2 .. 13 -> $exp { |
|||
my $a = $a1 + ($a1 - $a2) / $d; |
|||
do { |
|||
my $x = 0; |
|||
my $y = 0; |
|||
for ^2 ** $exp { |
|||
$y = 1 - 2 * $y * $x; |
|||
$x = $a - $x²; |
|||
} |
|||
$a -= $x / $y; |
|||
} xx 10; |
|||
$d = ($a1 - $a2) / ($a - $a1); |
|||
($a2, $a1) = ($a1, $a); |
|||
printf "%2d %.8f\n", $exp, $d; |
|||
}</lang> |
|||
{{out}} |
|||
<pre> i d |
|||
2 3.21851142 |
|||
3 4.38567760 |
|||
4 4.60094928 |
|||
5 4.65513050 |
|||
6 4.66611195 |
|||
7 4.66854858 |
|||
8 4.66906066 |
|||
9 4.66917155 |
|||
10 4.66919515 |
|||
11 4.66920026 |
|||
12 4.66920098 |
|||
13 4.66920537</pre> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |