need-swap? ( pos seq -- pos seq ? )


Vocabulary
rosetta-code.gnome-sort

Inputs
posan object
seqan object


Outputs
posan object
seqan object
?an object


Definition
USING: kernel math ;

IN: rosetta-code.gnome-sort

: need-swap? ( pos seq -- pos seq ? )
over 1 < [ f ] [ 2dup take-two > ] if ;