inv-sort-by! ( seq quot: ( elt -- key ) -- )

Vocabulary

sorting.quick

Inputs

seq	an object
quot	a quotation with stack effect ( elt -- key )

Outputs

None

Definition

USING: kernel math.order ;

IN: sorting.quick

: inv-sort-by! ( seq quot: ( elt -- key ) -- )
    [ compare invert-comparison ] curry sort-with! ; inline