From 4f3622849deecc1db73042357423865718153047 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 9 Sep 2012 10:37:24 -0700
Subject: [PATCH] sequences.extras: adding "all-rotations".
---
extra/sequences/extras/extras.factor | 3 +++
1 file changed, 3 insertions(+)
diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 25beea2cce..13d5634aa2 100644
--- 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