Polynomial synthetic division: Difference between revisions
m
→{{header|Perl 6}}: corrected hidden precedence bug
(Scala contribution added.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: corrected hidden precedence bug) |
||
Line 143:
=={{header|Perl 6}}==
{{trans|Python}}
{{works with|Rakudo|
<lang perl6>sub synthetic-division ( @numerator, @denominator ) {
my @result = @numerator
my $end = @denominator.end;
for ^(@numerator-$end) -> $i {
@result[$i+$_] -= @denominator[$_] * @result[$i] for 1..$end;
}
| |||