take-from? ( n seq subseq -- n'/f seq ? )

Vocabulary

modern.slices

Inputs

n	an object
seq	an object
subseq	an object

Outputs

n'/f	an object
seq	an object
?	an object

Definition

USING: kernel math sequences ;

IN: modern.slices

:: take-from? ( n seq subseq -- n'/f seq ? )
    n seq subseq subseq-starts-at?
    [ n subseq length + seq t ] [ n seq f ] if ;