Continued fraction: Difference between revisions
m
→{{header|Perl}}: another simplification
m (→{{header|Perl}}: simpler formula for pi) |
m (→{{header|Perl}}: another simplification) |
||
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 "π ≈ %.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 { 1/($n++
{{out}}
<pre>√2 ≈ 1.414213562
| |||