euler001a ( -- answer )


Vocabulary
project-euler.001

Inputs
None

Outputs
answeran object


Definition
USING: math ranges sequences ;

IN: project-euler.001

: euler001a ( -- answer )
0 999 3 <range> sum 0 999 5 <range> sum + 0 999 15 <range>
sum - ;