(concat-upto) ( n limit str -- str )

Vocabulary

project-euler.040.private

Inputs

n	an object
limit	an object
str	an object

Outputs

str

an object

Definition

USING: kernel math math.parser sequences ;

IN: project-euler.040.private

: (concat-upto) ( n limit str -- str )
    2dup length >
    [ pick number>string append! [ 1 + ] 2dip (concat-upto) ]
    [ 2nip ] if ;