! Copyright (C) 2009 Yun, Jonghyouk.
! See http://factorcode.org/license.txt for BSD license.
USING: io kernel locals math math.fibonacci prettyprint sequences
sequences.last ;
IN: euler.002


: fib-limit-n ( -- n ) 4000000 ;

: even-fibs ( -- seq )
    fib-initial-seq fib-limit-n fib-produce-seq [ even? ] filter ;

: solve ( -- )
    even-fibs sum pprint "" print ;


MAIN: solve