euler002a ( -- answer )

Vocabulary

project-euler.002

Inputs

None

Outputs

answer

an object

Definition

USING: math sequences ;

IN: project-euler.002

: euler002a ( -- answer )
    4000000 fib-upto* [ even? ] filter sum ;