circular-slice

Vocabulary

grouping

Definition

USING: math ;

IN: grouping

TUPLE: circular-slice
    { from integer read-only initial: 0 }
    { to integer read-only initial: 0 } { seq read-only } ;

Methods

USING: grouping kernel sequences ;

M: circular-slice equal?
    over circular-slice? [ sequence= ] [ 2drop f ] if ;


USING: grouping kernel math sequences ;

M: circular-slice hashcode*
    [ sequence-hashcode ] recursive-hashcode ;


USING: accessors grouping kernel math sequences ;

M: circular-slice length [ to>> ] [ from>> ] bi - ; inline


USING: accessors grouping kernel math sequences ;

M: circular-slice virtual@
    [ from>> + ] [ seq>> ] bi [ length rem ] keep ; inline