(p/mod) ( p p -- p p )

Vocabulary

math.polynomials.private

Inputs

p	an object
p	an object

Outputs

p	an object
p	an object

Definition

USING: kernel make math.polynomials sequences vectors ;

IN: math.polynomials.private

: (p/mod) ( p p -- p p )
    2dup /-last 2dup , n*p swapd p- >vector dup pop*
    swap rest-slice ;