sequences.rotated: adding all-rotations.

diff --git a/extra/sequences/rotated/rotated.factor b/extra/sequences/rotated/rotated.factor
index 8250c7685209049c0467a26336dad72d2a8d563e..0255689fc2d7e1e914e07806e804d0f28a8f0c0f 100644 (file)
--- a/extra/sequences/rotated/rotated.factor
+++ b/extra/sequences/rotated/rotated.factor
@@ -17,3 +17,6 @@ M: rotated virtual@ [ n>> + ] [ circular>> ] bi ;
 M: rotated virtual-exemplar circular>> ;
 
 INSTANCE: rotated virtual-sequence
+
+: all-rotations ( seq -- seq' )
+    dup length iota [ <rotated> ] with map ;