extra/sequences/repeating/repeating.factor

   1 ! Copyright (C) 2008 Alex Chapman
   2 ! Copyright (C) 2012 John Benediktsson
   3 ! See http://factorcode.org/license.txt for BSD license
   4 USING: accessors circular kernel math sequences ;
   5 IN: sequences.repeating
   6
   7 TUPLE: cycles
   8 { circular circular read-only }
   9 { length integer read-only } ;
  10
  11 : <cycles> ( seq length -- cycles )
  12     [ <circular> ] dip cycles boa ;
  13
  14 : cycle ( seq length -- new-seq )
  15     dupd <cycles> swap like ;
  16
  17 M: cycles length length>> ;
  18
  19 M: cycles set-length length<< ;
  20
  21 M: cycles virtual@ circular>> ;
  22
  23 M: cycles virtual-exemplar circular>> ;
  24
  25 INSTANCE: cycles virtual-sequence
  26
  27 TUPLE: repeats
  28 { seq sequence read-only }
  29 { times integer read-only } ;
  30
  31 C: <repeats> repeats
  32
  33 M: repeats length [ seq>> length ] [ times>> ] bi * ;
  34
  35 M: repeats virtual@ [ times>> /i ] [ seq>> ] bi ;
  36
  37 M: repeats virtual-exemplar seq>> ;
  38
  39 INSTANCE: repeats immutable-sequence
  40
  41 INSTANCE: repeats virtual-sequence
  42
  43 : repeat ( seq times -- new-seq )
  44     dupd <repeats> swap like ;