2008-05-18 22:25:58 -04:00
|
|
|
! Copyright (C) 2008 Alex Chapman
|
|
|
|
|
! See http;//factorcode.org/license.txt for BSD license
|
|
|
|
|
USING: accessors circular kernel sequences ;
|
|
|
|
|
IN: sequences.repeating
|
|
|
|
|
|
|
|
|
|
TUPLE: repeating circular len ;
|
|
|
|
|
|
|
|
|
|
: <repeating> ( seq length -- repeating )
|
|
|
|
|
[ <circular> ] dip repeating boa ;
|
|
|
|
|
|
|
|
|
|
: repeated ( seq length -- new-seq )
|
|
|
|
|
dupd <repeating> swap like ;
|
|
|
|
|
|
2008-09-02 13:35:34 -04:00
|
|
|
M: repeating length len>> ;
|
2010-05-05 16:52:54 -04:00
|
|
|
M: repeating set-length len<< ;
|
2008-05-18 22:25:58 -04:00
|
|
|
|
|
|
|
|
M: repeating virtual@ ( n seq -- n' seq' ) circular>> ;
|
|
|
|
|
|
2009-11-06 18:06:26 -05:00
|
|
|
M: repeating virtual-exemplar circular>> ;
|
2008-05-18 22:25:58 -04:00
|
|
|
|
|
|
|
|
INSTANCE: repeating virtual-sequence
|
