arg-where ( ... seq quot: ( ... elt -- ... ? ) -- ... indices )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

indices

an object

Word description

Push a sequence of all indices in seq where quot applied to the element at each index is true.

Definition

USING: kernel sequences sequences.extras.private vectors ;

IN: sequences.extras

: arg-where
    ( ... seq quot: ( ... elt -- ... ? ) -- ... indices )
    over length <vector>
    [ [ push-index-if ] 2curry each-index ] keep ; inline