(subseq-start-from) ( subseq seq n length -- subseq seq ? ) - Factor Documentation

(subseq-start-from) ( subseq seq n length -- subseq seq ? )

Vocabulary
sequences.private

Inputs

subseq	an object
seq	an object
n	an object
length	an object

Outputs

subseq	an object
seq	an object
?	an object

Definition

USING: kernel math ;

IN: sequences.private

: (subseq-start-from)
( subseq seq n length -- subseq seq ? )
[ [ 3dup ] dip [ + swap nth-unsafe ] keep rot nth-unsafe = ]
all-integers? nip ; inline