Handbook Glossary
factorcode.org
(p^) ( p n -- p^n )


Vocabulary
math.polynomials

Inputs
pan object
nan object


Outputs
p^nan 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
;