p/mod-setup ( p p -- p p n )

Vocabulary

math.polynomials.private

Inputs

p	an object
p	an object

Outputs

p	an object
p	an object
n	an object

Definition

USING: kernel math math.polynomials sequences ;

IN: math.polynomials.private

: p/mod-setup ( p p -- p p n )
    2ptrim 2dup 2length - dup 1 < [ drop 1 ] when
    [ over length + 0 pad-head pextend ] keep 1 + ;