Continued fraction: Difference between revisions
Content added Content deleted
m (→{{header|Perl 6}}: better TeX formula) |
m (→{{header|Perl}}: simpler formula for pi) |
||
Line 669: | Line 669: | ||
printf "√2 ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ ? 2 : 1 } }, sub { 1 }; |
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++ ? $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 { |
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++ ? 1/($n-1) : 1 } }, sub { 1 }, 1_000;</lang> |
printf "π/2 ≈ %.9f\n", continued_fraction do { my $n; sub { $n++ ? 1/($n-1) : 1 } }, sub { 1 }, 1_000;</lang> |
||
{{out}} |
{{out}} |