sort-with! ( seq quot: ( obj1 obj2 -- <=> ) -- )

Vocabulary

sorting.quick

Inputs

seq	an object
quot	a quotation with stack effect ( obj1 obj2 -- <=> )

Outputs

None

Definition

USING: kernel math sequences sorting.quick.private ;

IN: sorting.quick

: sort-with! ( seq quot: ( obj1 obj2 -- <=> ) -- )
    [ 0 over length check-array-capacity 1 - ] dip quicksort ;
    inline