Continued fraction: Difference between revisions
Content added Content deleted
m (→{{header|Perl}}: simpler formula for pi) |
m (→{{header|Perl}}: another simplification) |
||
Line 670: | Line 670: | ||
printf "e ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ ? $n-1 : 2 } }, do { my $n; sub { $n++ ? $n-1 : 1 } }; |
printf "e ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ ? $n-1 : 2 } }, do { my $n; sub { $n++ ? $n-1 : 1 } }; |
||
printf "π ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ ? 6 : 3 } }, do { my $n; sub { (2*$n++ + 1)**2 } }, 1_000; |
printf "π ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ ? 6 : 3 } }, do { my $n; sub { (2*$n++ + 1)**2 } }, 1_000; |
||
printf "π/2 ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ |
printf "π/2 ≈ %.9f\n", continued_fraction do { my $n; sub { 1/($n++ || 1) } }, sub { 1 }, 1_000;</lang> |
||
{{out}} |
{{out}} |
||
<pre>√2 ≈ 1.414213562 |
<pre>√2 ≈ 1.414213562 |