4digit-concat ( seq -- str )

Vocabulary

project-euler.049.private

Inputs

seq

an object

Outputs

str

an object

Definition

USING: kernel math sequences ;

IN: project-euler.049.private

: 4digit-concat ( seq -- str ) 0 [ [ 10000 * ] dip + ] reduce ;