all-subseqs ( seq -- seqs )

Vocabulary

sequences.extras

Inputs

seq	a sequence

Outputs

seqs

an object

Word description

Pushes a sequence containing all subsequences in seq excluding the empty sequence.

Definition

USING: grouping kernel ranges sequences ;

IN: sequences.extras

: all-subseqs ( seq -- seqs )
    dup length [1..b] [ clump ] with map concat ;