Restore List.rotate method.

rakudo · Jun 17, 2010 · e3eb608 · e3eb608
1 parent 5832221
commit e3eb608
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -35,6 +35,11 @@ augment class List does Positional {
         '(' ~ self.map({ $^a.perl }).join(', ') ~ ')';
     }
 
+    method rotate($n = 1) is export {
+        my $k = $n % self.elems;
+        self[$k .. self.elems-1, 0 .. $k-1];
+    }
+
     multi method sort(&by = &infix:<cmp>) {
         # Parrot already provides a sort method that works on
         # ResizablePMCArray, so we aim to make use of that here.