sort-pairs ( merge quot -- ) (original) (raw)

sort-pairs ( merge quot -- )

Vocabulary
sorting.private

Inputs

Outputs
None

Definition

USING: accessors kernel ;

IN: sorting.private

: sort-pairs ( merge quot -- )
[ [ seq>> ] [ accum>> ] bi ] dip swap
[ (sort-pairs) ] 2curry each-pair ; inline