p/mod ( p q -- z w )
Polynomials

Prev:	n*p ( n v -- w )
Next:	pgcd ( p q -- a d )

Vocabulary
math.polynomials

Inputs

p	a polynomial
q	a polynomial

Outputs

z	a polynomial
w	a polynomial

Word description
Computes to quotient z and remainder w of dividing p by q.

Examples

USING: kernel math.polynomials prettyprint ; { 1 1 1 1 } { 3 1 } p/mod [ . ] bi@
V{ 7 -2 1 } V{ -20 0 0 }

Definition

USING: kernel make math math.polynomials.private sequences ;

IN: math.polynomials

: p/mod ( p q -- z w )
    p/mod-setup [ [ (p/mod) ] times ] V{ } make reverse nip
    swap 2ptrim pextend ;