?retotal ( total fib- fib+ -- retotal fib- fib+ )

Vocabulary

project-euler.002.private

Inputs

total	an object
fib-	an object
fib+	an object

Outputs

retotal	an object
fib-	an object
fib+	an object

Definition

USING: kernel math ;

IN: project-euler.002.private

: ?retotal ( total fib- fib+ -- retotal fib- fib+ )
    dup even? [ [ nip + ] 2keep ] when ;