From 16213f877947445970e6f078a39714d66caa2885 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 28 Apr 2015 18:55:23 -0700 Subject: [PATCH] sequences.rotated: adding all-rotations. --- extra/sequences/rotated/rotated.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/sequences/rotated/rotated.factor b/extra/sequences/rotated/rotated.factor index 8250c76852..0255689fc2 100644 --- 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 [ ] with map ;