next ( seq -- newseq )


Vocabulary
rosetta-code.hofstadter-q

Inputs
seqan object


Outputs
newseqan object


Definition
USING: kernel math sequences ;

IN: rosetta-code.hofstadter-q

: next ( seq -- newseq )
dup 2 tail* over length [ swap - ] curry map
[ dupd swap nth ] map 0 [ + ] reduce suffix ;