inv-sort-with ( ... seq quot: ( ... obj1 obj2 -- ... <=> ) -- ... sortedseq )

Vocabulary

sorting

Inputs

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

Outputs

sortedseq

an object

Definition

USING: kernel math.order ;

IN: sorting

: inv-sort-with
    ( ... seq quot: ( ... obj1 obj2 -- ... <=> ) -- ... sortedseq )
    [ invert-comparison ] compose sort-with ; inline