insort-left! ( obj seq -- seq )


Vocabulary
sorting.extras

Inputs
objan object
seqan object


Outputs
seqan object


Definition
USING: kernel sequences.extras ;

IN: sorting.extras

: insort-left! ( obj seq -- seq )
[ bisect-left ] 2keep swapd [ insert-nth! ] keep ;