compute-midpoint ( merge -- merge ) (original) (raw)

compute-midpoint ( merge -- merge )

Vocabulary
sorting.private

Inputs

Outputs

Definition

USING: accessors kernel math ;

IN: sorting.private

: compute-midpoint ( merge -- merge )
dup [ from1>> ] [ to2>> ] bi + 2/ >>to1 ; inline