fn ( n -- x )

Vocabulary

project-euler.169

Inputs

n

an object

Outputs

x

an object

Definition

USING: combinators kernel math ;

IN: project-euler.169

MEMO: fn ( n -- x )
    {
        { [ dup 2 < ] [ drop 1 ] }
        { [ dup odd? ] [ 2/ fn ] }
        [ 2/ [ fn ] [ 1 - fn ] bi + ]
    } cond ;