concat-upto ( n -- str )

Vocabulary

project-euler.040.private

Inputs

n

an object

Outputs

str

an object

Definition

USING: kernel ;

IN: project-euler.040.private

: concat-upto ( n -- str ) SBUF" " clone 1 -rot (concat-upto) ;