next-recaman ( prev n seen -- next )

Vocabulary

math.extras.private

Inputs

prev	an object
n	an object
seen	an object

Outputs

next

an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: math.extras.private

:: next-recaman ( prev n seen -- next )
    prev n - dup { [ 0 > ] [ seen nth not ] } 1&&
    [ drop prev n + ] unless t over seen set-nth ;