Merge remote branch 'upstream'

rakudo · Mar 17, 2010 · d52d50d · d52d50d
2 parents c52d193 + d0f934f
commit d52d50d
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/src/core/Parcel.pm b/src/core/Parcel.pm
@@ -3,6 +3,8 @@ augment class Parcel {
 
     method list() { self.iterator }
 
+    method rotate(Int $n = 1) { self.Seq.rotate($n) }
+
     multi method ACCEPTS($x) {
         # smart-matching against Nil
         if self.elems == 0 {

diff --git a/src/core/Seq.pm b/src/core/Seq.pm
@@ -76,6 +76,11 @@ augment class Seq {
             )];
         }
     }
+
+    multi method rotate(Int $n = 1) is export {
+        my Int $k = $n % self.elems;
+        self[$k .. self.elems-1, 0 .. $k-1];
+    }
 }
 
 # vim: ft=perl6
diff --git a/t/spectest.data b/t/spectest.data
@@ -437,7 +437,7 @@ S32-array/kv.t
 # S32-array/pairs.t
 S32-array/pop.t
 S32-array/push.t
-# S32-array/rotate.t
+S32-array/rotate.t
 S32-array/shift.t
 S32-array/splice.t
 S32-array/unshift.t