hyper-exp-mod ( a b m -- e )

Vocabulary

project-euler.188.private

Inputs

a	an object
b	an object
m	an object

Outputs

e

an object

Definition

USING: kernel math math.functions ;

IN: project-euler.188.private

: hyper-exp-mod ( a b m -- e )
    1 rot [ [ 2dup ] dip swap ^mod ] times 2nip ;