cycles

Vocabulary

sequences.repeating

Definition

USING: circular math ;

IN: sequences.repeating

TUPLE: cycles
    { circular circular read-only initial: T{ circular } }
    { length integer read-only initial: 0 } ;

Methods

USING: accessors sequences sequences.repeating ;

M: cycles length length>> ;


USING: accessors generic kernel sequences sequences.repeating
sequences.repeating.private ;

M: cycles maximum
    dup full-cycle?
    [ circular>> maximum ]
    [ M\ cycles maximum (call-next-method) ] if ; inline


USING: accessors generic kernel sequences sequences.repeating
sequences.repeating.private ;

M: cycles minimum
    dup full-cycle?
    [ circular>> minimum ]
    [ M\ cycles minimum (call-next-method) ] if ; inline


USING: accessors sequences sequences.repeating ;

M: cycles set-length length<< ;


USING: accessors sequences sequences.repeating ;

M: cycles virtual-exemplar circular>> ;


USING: accessors sequences sequences.repeating ;

M: cycles virtual@ circular>> ;