Handbook Glossary
factorcode.org
(^fixnum) ( z w -- z^w )


Vocabulary
math.functions.private

Inputs
zan object
wan object


Outputs
z^wan 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