take-while ( ... seq quot: ( ... elt -- ... ? ) -- head-slice )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

head-slice

an object

Definition

USING: kernel sequences ;

IN: sequences.extras

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