recaman ( N -- seq )

Vocabulary

math.extras

Inputs

N

an object

Outputs

seq

an object

Definition

USING: bit-vectors kernel math.extras.private sequences ;

IN: math.extras

:: recaman ( N -- seq )
    0 N dup <bit-vector> [ next-recaman dup ] curry map-integers
    nip ;