(pow) ( base x -- base^x )

Vocabulary

math.parser.private

Inputs

base	an object
x	an object

Outputs

base^x

an object

Definition

USING: kernel math ;

IN: math.parser.private

: (pow) ( base x -- base^x )
    integer>fixnum-strict dup 0 >=
    [ pow-until ] [ [ recip ] [ neg ] bi* pow-until ] if ;
    inline