concat-product ( n -- m )

Vocabulary

project-euler.038.private

Inputs

n

an object

Outputs

m

an object

Definition

USING: kernel ;

IN: project-euler.038.private

: concat-product ( n -- m ) V{ } clone swap 1 (concat-product) ;