sequences.extras: adding "all-rotations".

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 25beea2ccef77946f911242ed911b766ea23e2da..13d5634aa2eb27e8922e11cfb0e545916cb9b1d2 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -126,6 +126,9 @@ IN: sequences.extras
         2over = [ -rot nip over ] when
     ] until 3drop ;
 
+: all-rotations ( seq -- seq' )
+    dup length iota [ rotate ] with map ;
+
 : appender-for ( quot exemplar -- quot' vec )
     [ length ] keep new-resizable
     [ [ push-all ] curry compose ] keep ; inline