Continued fraction: Difference between revisions
m
→{{header|Perl}}: boilerplate, subroutine signature, formatting for clarity
(Added Wren) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: boilerplate, subroutine signature, formatting for clarity) |
||
Line 2,032:
=={{header|Perl}}==
<lang perl>
use warnings;
no warnings 'recursion';
use experimental 'signatures';
sub continued_fraction ($a, $b, $n = 100) {
$a->() + ($n
}
printf "√2 ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ ? 2 : 1 } }, sub { 1 };
printf "e ≈ %.9f\n", continued_fraction do { my $n; sub { $n++
printf "π ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ ? 6 : 3 } }, do { my $n; sub { (2*$n++ + 1)**2 } },
printf "π/2 ≈ %.9f\n", continued_fraction do { my $n; sub { 1/($n++
{{out}}
<pre>√2 ≈ 1.414213562
| |||