open-slice-of ( seq shift from -- seq )

Vocabulary

sequences.extras.private

Inputs

seq	an object
shift	an object
from	an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: sequences.extras.private

: open-slice-of ( seq shift from -- seq )
    over 0 =
    [ 2drop ] [
        [ ] [ drop [ length ] dip + ] 3bi
        [ pick length [ over - ] dip move-backward-of ] dip
        set-length-of
    ] if ;