prev/next ( obj seq n -- obj' )


Vocabulary
help.crossref

Inputs
objan object
seqan object
nan object


Outputs
obj'an object


Definition
USING: kernel math sequences ;

IN: help.crossref

: prev/next ( obj seq n -- obj' )
[ [ index dup ] keep ] dip swap [ [ + ] curry ] dip
[ ?nth ] curry compose when ;