(sum-even-fibs-below) ( partial fib- fib+ max -- total )

Vocabulary

project-euler.002.private

Inputs

partial	an object
fib-	an object
fib+	an object
max	an object

Outputs

total

an object

Definition

USING: kernel math ;

IN: project-euler.002.private

: (sum-even-fibs-below) ( partial fib- fib+ max -- total )
    2dup >
    [ 3drop ]
    [ [ ?retotal next-fibs ] dip (sum-even-fibs-below) ] if ;