swap-back ( pos seq -- pos seq' )


Vocabulary
rosetta-code.gnome-sort

Inputs
posan object
seqan object


Outputs
posan object
seq'an object


Definition
USING: kernel sequences ;

IN: rosetta-code.gnome-sort

: swap-back ( pos seq -- pos seq' )
[ take-two ] 2keep [ dec-pos set-nth ] 2keep
[ set-nth ] 2keep ;