Polynomial long division: Difference between revisions
Content added Content deleted
(Add Factor example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: 'singularizer' not needed) |
||
Line 1,812: | Line 1,812: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{Works with|rakudo| |
{{Works with|rakudo|2018.10}} |
||
{{trans|Perl}} for the core algorithm; original code for LaTeX pretty-printing. |
{{trans|Perl}} for the core algorithm; original code for LaTeX pretty-printing. |
||
<lang perl6>sub poly_long_div ( @n is copy, @d ) { |
<lang perl6>sub poly_long_div ( @n is copy, @d ) { |
||
Line 1,822: | Line 1,822: | ||
} |
} |
||
return |
return @q, @n; |
||
} |
} |
||