(^fixnum) ( z w -- z^w )

Vocabulary

math.functions.private

Inputs

z	an object
w	an object

Outputs

z^w

an object

Definition

USING: kernel math ;

IN: math.functions.private

: (^fixnum) ( z w -- z^w )
    [ 1 ] 2dip
    [ dup zero? ] [
        dup odd? [ [ [ * ] keep ] [ 1 - ] bi* ] when
        [ sq ] [ 2/ ] bi*
    ] until 2drop ; inline