unique ( seq -- assoc )

Vocabulary
sets

Definition

USING: assocs kernel ;

IN: sets

: unique ( seq -- assoc ) [ dup ] H{ } map>assoc ;