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

Vocabulary

sorting.bubble

Inputs

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

Outputs

None

Definition

USING: kernel math sequences sorting.bubble.private ;

IN: sorting.bubble

: bubble-sort-with! ( seq quot: ( obj1 obj2 -- <=> ) -- )
    over length 2 < [ 2drop ] [ (bubble-sort-with!) ] if ;
    inline