Polynomial synthetic division: Difference between revisions

Content added Content deleted

Inline

@@ Line 143: / Line 143: @@
 =={{header|Perl 6}}==
 {{trans|Python}}
-{{works with|Rakudo|2016.09}}
+{{works with|Rakudo|2018.09}}
 <lang perl6>sub synthetic-division ( @numerator, @denominator ) {
-    my @result = @numerator.clone;
+    my @result = @numerator;
     my $end    = @denominator.end;
-    for ^@numerator-$end -> $i {
+    for ^(@numerator-$end) -> $i {
-        next unless @result[$i];
+        @result[$i]    /= @denominator[0];
-        @result[$i] /= @denominator[0];
         @result[$i+$_] -= @denominator[$_] * @result[$i] for 1..$end;
     }