euler001b ( -- answer )

Vocabulary

project-euler.001

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math sequences ;

IN: project-euler.001

: euler001b ( -- answer )
    1000 <iota>
    [ [ 5 mod ] [ 3 mod ] bi [ 0 = ] either? ] filter sum ;