Continued fraction: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,382: / Line 1,382: @@
 =={{header|Perl 6}}==
+{{Works with|rakudo|2015-10-31}}
 <lang perl6>sub continued-fraction(:@a, :@b, Int :$n = 100)
 {
@@ Line 1,389: / Line 1,390: @@
 }
-printf "√2 ≈ %.9f\n", continued-fraction(:a(1, 2 xx *), :b(*, 1 xx *));
+printf "√2 ≈%.9f\n", continued-fraction(:a(1, |(2 xx *)), :b(Nil, |(1 xx *)));
-printf "e  ≈ %.9f\n", continued-fraction(:a(2, 1 .. *), :b(*, 1, 1 .. *));
+printf "e  ≈%.9f\n", continued-fraction(:a(2, |(1 .. *)), :b(Nil, 1, |(1 .. *)));
-printf "π  ≈ %.9f\n", continued-fraction(:a(3, 6 xx *), :b(*, [\+] 1, (8, 16 ... *)), :n(1000));</lang>
+printf "π  ≈%.9f\n", continued-fraction(:a(3, |(6 xx *)), :b(Nil, |((1, 3, 5 ... *) X** 2)));
 {{out}}
 <pre>√2 ≈ 1.414213562