(concat-product) ( accum n multiplier -- m )

Vocabulary

project-euler.038.private

Inputs

accum	an object
n	an object
multiplier	an object

Outputs

m

an object

Definition

USING: kernel math project-euler.common sequences ;

IN: project-euler.038.private

: (concat-product) ( accum n multiplier -- m )
    pick length 8 >
    [ 2drop digits>number ]
    [ [ * number>digits append! ] 2keep 1 + (concat-product) ]
    if ;