each-pair ( seq quot -- )


Vocabulary
sorting.private

Inputs
seqan object
quotan object


Outputs
None

Definition
USING: kernel math sequences ;

IN: sorting.private

: each-pair ( seq quot -- )
[ [ length 1 + 2/ ] keep ] dip
[ [ 1 shift dup 1 + ] dip ] prepose curry each-integer ;
inline