each-subseq ( ... seq quot: ( ... subseq -- ... ) -- ... )


Vocabulary
sequences.extras

Inputs
seqa sequence
quota quotation


Outputs
None

Word description
Call quot for every subsequence of seq.

Definition
USING: kernel ranges sequences ;

IN: sequences.extras

: each-subseq ( ... seq quot: ( ... subseq -- ... ) -- ... )
[ dup length [ [0..b] ] [ ] bi ] dip
'[ dup _ (a..b] [ rot [ subseq _ call ] keep ] with each ]
each drop ; inline