Continued fraction: Difference between revisions

Content added Content deleted

Inline

@@ Line 643: / Line 643: @@
 <lang perl>sub continued_fraction {
-    my ($a, $b) = @_[0,1];
+    my ($a, $b, $n) = @_;
-    my $n = $_[2] // 100;
+    $n //= 100;
     my @a = map &$a, 0 .. $n;