Feigenbaum constant calculation: Difference between revisions
m
→{{header|Perl}}: use high-precision library for faster convergence
m (→{{header|Lua}}) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: use high-precision library for faster convergence) |
||
Line 639:
=={{header|Perl}}==
<lang perl>
use warnings;
use Math::AnyNum 'sqr';
$a1 = 1.0;
$a2 = 0.0;
$d1 = 3.2;
Line 652 ⟶ 656:
for (1 .. 2**$i) {
$y = 1 - 2 * $y * $x;
$x = $a - sqr($x
}
$a -= $x/$y;
Line 664 ⟶ 668:
<pre> 2 3.21851142203809
3 4.38567759856834
4 4.
5 4.
6 4.
7 4.
8 4.
9 4.
10 4.
11 4.
12 4.
13 4.
=={{header|Perl 6}}==
| |||