euler012 ( -- answer )

Vocabulary

project-euler.012

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math project-euler.common ;

IN: project-euler.012

: euler012 ( -- answer )
    8 [ dup nth-triangle tau* 500 < ] [ 1 + ] while nth-triangle
    ;