euler001c ( -- answer )

Vocabulary

project-euler.001

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math.functions sequences ;

IN: project-euler.001

: euler001c ( -- answer )
    1000 <iota> [ { 3 5 } [ divisor? ] with any? ] filter sum ;