unique-by ( seq quot: ( elt -- key ) -- seq' )

Vocabulary

sets.extras

Inputs

seq	an object
quot	a quotation with stack effect ( elt -- key )

Outputs

seq'

an object

Definition

USING: hash-sets kernel sequences sets ;

IN: sets.extras

: unique-by ( seq quot: ( elt -- key ) -- seq' )
    over length <hash-set> [ ?adjoin ] curry compose filter ;
    inline