mark-firsts ( seq -- seq' )

Vocabulary

sequences.extras

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: hash-sets kernel sequences sets ;

IN: sequences.extras

: mark-firsts ( seq -- seq' )
    dup length <hash-set> [ ?adjoin 1 0 ? ] curry { } map-as ;