euler001d ( -- answer )

Vocabulary

project-euler.001

Inputs

None

Outputs

answer

an object

Definition

USING: kernel ranges sequences sets ;

IN: project-euler.001

: euler001d ( -- answer )
    { 3 5 } [ [ 999 ] keep <range> ] gather sum ;