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