factor/extra/sequences/repeating/repeating.factor

45 lines
986 B
Factor
Raw Permalink Normal View History

! Copyright (C) 2008 Alex Chapman
! Copyright (C) 2012 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: accessors circular kernel math sequences sequences.private ;
IN: sequences.repeating
2012-08-09 18:07:45 -04:00
TUPLE: cycles
{ circular circular read-only }
{ length integer read-only } ;
: <cycles> ( seq length -- cycles )
[ <circular> ] dip cycles boa ;
: cycle ( seq length -- new-seq )
dupd <cycles> swap like ;
M: cycles length length>> ;
2012-08-09 18:07:45 -04:00
M: cycles set-length length<< ;
2018-02-16 11:31:22 -05:00
M: cycles virtual@ circular>> ;
M: cycles virtual-exemplar circular>> ;
INSTANCE: cycles virtual-sequence
2012-08-09 18:07:45 -04:00
TUPLE: repeats
{ seq sequence read-only }
2018-02-16 11:31:22 -05:00
{ times integer read-only } ;
2018-02-16 11:31:22 -05:00
C: <repeats> repeats
2018-02-16 11:31:22 -05:00
M: repeats length [ seq>> length ] [ times>> ] bi * ;
2018-02-16 11:31:22 -05:00
M: repeats virtual@ [ times>> /i ] [ seq>> ] bi ;
2018-02-16 11:31:22 -05:00
M: repeats virtual-exemplar seq>> ;
INSTANCE: repeats immutable-sequence
2018-02-16 11:31:22 -05:00
INSTANCE: repeats virtual-sequence
: repeat ( seq times -- new-seq )
dupd <repeats> swap like ;