join-numbers ( m n -- x )

Vocabulary

project-euler.060

Inputs

m	an object
n	an object

Outputs

x

an object

Definition

USING: kernel math math.functions ;

IN: project-euler.060

: join-numbers ( m n -- x )
    over log10 ceiling >integer 10^ * + ;