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