merging ( from to merge -- )

Vocabulary

sorting.private

Inputs

from	an object
to	an object
merge	an object

Outputs

None

Definition

USING: accessors kernel math.order sequences ;

IN: sorting.private

: merging ( from to merge -- )
    swap >>to2 swap >>from1 compute-midpoint dup
    [ to1>> ] [ seq>> length ] bi min >>to1 dup
    [ to2>> ] [ seq>> length ] bi min >>to2 dup to1>> >>from2
    drop ; inline