(m^n) ( m n -- n )

Vocabulary

math.matrices.extras.private

Inputs

m	an object
n	an object

Outputs

n

an object

Definition

USING: kernel math.bits math.matrices sequences ;

IN: math.matrices.extras.private

: (m^n) ( m n -- n )
    make-bits over first length <identity-matrix>
    [ [ dupd mdot ] when [ dup mdot ] dip ] reduce nip ;