mmp ( x y -- n )

Vocabulary

project-euler.032.private

Inputs

x	an object
y	an object

Outputs

n

an object

Definition

USING: kernel math math.parser sequences ;

IN: project-euler.032.private

: mmp ( x y -- n )
    2dup * [ number>string ] tri@ 3append string>number ;