<merge> ( seq -- merge )


Vocabulary
sorting.private

Inputs
seqan object


Outputs
mergean object


Definition
USING: accessors kernel sequences vectors ;

IN: sorting.private

: <merge> ( seq -- merge )
\ merge-state new over >vector >>accum1
swap length <vector> >>accum2
dup accum1>> underlying>> >>seq dup accum2>> >>accum ;
inline