deep-subseq-of? ( seq subseq -- ? )


Vocabulary
sequences.deep

Inputs
seqan object
subseqan object


Outputs
?an object


Definition
USING: kernel sequences ;

IN: sequences.deep

: deep-subseq-of? ( seq subseq -- ? )
[ over branch? [ subseq-of? ] [ 2drop f ] if ] curry
deep-find >boolean ;