mapped-set ( ... seq quot: ( ... elt -- ... newelt ) -- ... set )

Vocabulary

sets.extras

Inputs

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

Outputs

set

an object

Definition

USING: hash-sets kernel sequences sets ;

IN: sets.extras

: mapped-set
    ( ... seq quot: ( ... elt -- ... newelt ) -- ... set )
    over length <hash-set>
    [ [ adjoin ] curry compose each ] keep ; inline