unique-indices ( seq -- unique indices )

Vocabulary

math.extras

Inputs

seq

an object

Outputs

unique	an object
indices	an object

Definition

USING: assocs kernel sequences sets ;

IN: math.extras

: unique-indices ( seq -- unique indices )
    [ members ] keep over dup length <iota> H{ } zip-as
    [ at ] curry map ;