fab ( a b -- n )

Vocabulary

project-euler.508

Inputs

a	an object
b	an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: project-euler.508

MEMO:: fab ( a b -- n )
    a b [ zero? ] both?
    [ 0 ] [
        a b + 2 rem dup a - dup [ b + 2 / ] [ b - 2 / ] bi* fab
        +
    ] if ;