tribonacci ( n -- r )

Vocabulary

math.extras

Inputs

n

an object

Outputs

r

an object

Definition

USING: combinators kernel math ;

IN: math.extras

MEMO: tribonacci ( n -- r )
    {
        { 0 [ 0 ] }
        { 1 [ 1 ] }
        { 2 [ 1 ] }
        [ 3 2 1 [ - tribonacci ] tri-curry@ tri + + ]
    } case ;