1 ! Copyright (C) 2008 Alex Chapman
2 ! Copyright (C) 2012 John Benediktsson
3 ! See https://factorcode.org/license.txt for BSD license
4 USING: accessors circular kernel math sequences ;
5 IN: sequences.repeating
8 { circular circular read-only }
9 { length integer read-only } ;
11 : <cycles> ( seq length -- cycles )
12 [ <circular> ] dip cycles boa ;
14 : cycle ( seq length -- new-seq )
15 dupd <cycles> swap like ;
17 : repeat ( seq times -- new-seq )
20 M: cycles length length>> ;
22 M: cycles set-length length<< ;
24 M: cycles virtual@ circular>> ;
26 M: cycles virtual-exemplar circular>> ;
28 INSTANCE: cycles virtual-sequence
30 TUPLE: element-repeats < sequence-view
31 { times integer read-only } ;
33 C: <element-repeats> element-repeats
35 M: element-repeats length [ seq>> length ] [ times>> ] bi * ;
37 M: element-repeats virtual@ [ times>> /i ] [ seq>> ] bi ;
39 INSTANCE: element-repeats immutable-sequence
41 : repeat-elements ( seq times -- new-seq )
42 dupd <element-repeats> swap like ;