(^bignum) ( z w -- z^w )

Vocabulary

math.functions.private

Inputs

z	an object
w	an object

Outputs

z^w

an object

Definition

USING: kernel math math.bits sequences ;

IN: math.functions.private

: (^bignum) ( z w -- z^w )
    make-bits 1 [ [ over * ] when [ sq ] dip ] reduce nip ;
    inline