(p^) ( p n -- p^n )

Vocabulary

math.polynomials

Inputs

p	an object
n	an object

Outputs

p^n

an object

Definition

USING: kernel math.bits sequences ;

IN: math.polynomials

: (p^) ( p n -- p^n )
    make-bits { 1 } [ [ over p* ] when [ p-sq ] dip ] reduce nip
    ;