rotated

Vocabulary

sequences.rotated

Definition

USING: math sequences ;

IN: sequences.rotated

TUPLE: rotated < sequence-view
    { n integer read-only initial: 0 } ;

Methods

USING: accessors kernel math sequences sequences.rotated ;

M: rotated virtual@
    [ n>> + ] [ seq>> ] bi
    [ length over 0 < [ + ] [ 2dup >= [ - ] [ drop ] if ] if ]
    keep ;