(mult-order) ( n a m -- k )

Vocabulary

project-euler.026.private

Inputs

n	an object
a	an object
m	an object

Outputs

k

an object

Definition

USING: kernel math math.functions ;

IN: project-euler.026.private

: (mult-order) ( n a m -- k )
    3dup ^ swap mod 1 = [ 2nip ] [ 1 + (mult-order) ] if ;