gml-sort-number-permutation ( registers gml -- registers gml )

Vocabulary

gml.core

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: assocs gml.runtime kernel.private sequences sorting ;

IN: gml.core

: gml-sort-number-permutation
    ( registers gml -- registers gml )
    { gml } declare 1 1
    [ zip-index sort-keys <reversed> values ] gml-primitive ;