echelon-sort ( assoc -- assoc' )

Vocabulary

generic.single

Inputs

assoc

an object

Outputs

assoc'

an object

Definition

USING: assocs kernel ;

IN: generic.single

: echelon-sort ( assoc -- assoc' )
    H{ { 0 f } } clone
    [ [ push-echelon ] curry assoc-each ] keep ;