euler040 ( -- answer )

Vocabulary

project-euler.040

Inputs

None

Outputs

answer

an object

Definition

USING: kernel project-euler.040.private sequences ;

IN: project-euler.040

: euler040 ( -- answer )
    1000000 concat-upto
    { 1 10 100 1000 10000 100000 1000000 } [ swap nth-integer ]
    with map product ;