take-two ( pos seq -- elt-at-pos-1 elt-at-pos )


Vocabulary
rosetta-code.gnome-sort

Inputs
posan object
seqan object


Outputs
elt-at-pos-1an object
elt-at-posan object


Definition
USING: kernel sequences ;

IN: rosetta-code.gnome-sort

: take-two ( pos seq -- elt-at-pos-1 elt-at-pos )
[ dec-pos nth ] [ nth ] 2bi ; inline