Polynomial long division: Difference between revisions

Content added Content deleted
m (J: shorten)
Line 595: Line 595:
From http://www.jsoftware.com/jwiki/Phrases/Polynomials
From http://www.jsoftware.com/jwiki/Phrases/Polynomials


<lang J>divmod=:>:@-&# ({. ,&< }.) ([ (] -/@,:&}. (* {:)) ] , %&{.~)^:(>:@-~&#)&.|.~</lang>
<lang J>divmod=:[: (}: ; {:) ([ (] -/@,:&}. (* {:)) ] , %&{.~)^:(>:@-~&#)&.|.~</lang>


Wikipedia example:
Wikipedia example:
Line 602: Line 602:
┌────────┬────┐
┌────────┬────┐
│_27 _9 1│_123│
│_27 _9 1│_123│
└────────┴────┘
└────────┴────┘


=={{header|OCaml}}==
=={{header|OCaml}}==