echelon-sort ( assoc -- assoc' )


Vocabulary
generic.single

Definition
USING: assocs kernel ;

IN: generic.single

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