euler001 ( -- answer )

Vocabulary

project-euler.001

Inputs

None

Outputs

answer

an object

Definition

USING: math project-euler.001.private ;

IN: project-euler.001

: euler001 ( -- answer )
    999 3 sum-divisible-by 999 5 sum-divisible-by +
    999 15 sum-divisible-by - ;