drop-while ( ... seq quot: ( ... elt -- ... ? ) -- tail-slice )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

tail-slice

an object

Word description

Remove all values at the beginning of seq that return a truthy value when passed into quot. Return a virtual sequence containing those elements.

Definition

USING: kernel sequences ;

IN: sequences.extras

: drop-while
    ( ... seq quot: ( ... elt -- ... ? ) -- tail-slice )
    [ [ not ] compose find drop ] keepd swap
    [ dup length ] unless* tail-slice ; inline