extract! ( ... seq quot: ( ... elt -- ... ? ) -- ... seq )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

seq	a sequence

Definition

USING: kernel sequences ;

IN: sequences.extras

: extract! ( ... seq quot: ( ... elt -- ... ? ) -- ... seq )
    [ dup ] compose over [ length ] keep new-resizable
    [ [ push-when ] 2curry reject! ] keep swap like ; inline