(triangle-upto) ( limit n -- )

Vocabulary

project-euler.042.private

Inputs

limit	an object
n	an object

Outputs

None

Definition

USING: kernel make math project-euler.common ;

IN: project-euler.042.private

: (triangle-upto) ( limit n -- )
    2dup nth-triangle >
    [ dup nth-triangle , 1 + (triangle-upto) ] [ 2drop ] if ;