fib ( m -- n )

Vocabulary

project-euler.025

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: project-euler.025

MEMO: fib ( m -- n )
    dup 1 > [ [ 1 - fib ] [ 2 - fib ] bi + ] when ;