basic implementation of &roundrobin; tests

rakudo · May 14, 2012 · abb8f3a · abb8f3a
1 parent 56e86dd
commit abb8f3a
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/core/LoL.pm b/src/core/LoL.pm
@@ -73,3 +73,12 @@ sub infix:<Z>(**@lol) {
 
 my &zip := &infix:<Z>;
 
+sub roundrobin(**@lol) {
+    my @l = @lol.map({ (.flat,).list.item });
+    gather {
+        my $p;
+        while $p := @l.grep(*.Bool).map(*.shift).eager.Parcel {
+            take $p;
+        }
+    }
+}
diff --git a/t/spectest.data b/t/spectest.data
@@ -558,6 +558,7 @@ S32-array/shift.t
 S32-array/splice.t
 S32-array/unshift.t
 S32-basics/warn.t
+S32-container/roundrobin.t
 S32-container/zip.t
 S32-exceptions/misc.t
 S32-hash/delete.t