move-forward ( shift from to seq -- )

Vocabulary
sequences.private

Definition

USING: kernel math ;

IN: sequences.private

: move-forward ( shift from to seq -- )
    2over =
    [ 4drop ] [
        [ [ pick [ dup dup ] dip + swap ] dip move-unsafe 1 - ]
        keep move-forward
    ] if ;