# New Ticket Created by  Michael Schaap 
# Please include the string:  [perl #130498]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=130498 >


     my @l = (0,1,2),(3,4,5),(6,7);
     say roundrobin(|@l);

outputs

     (((0 1 2) (3 4 5) (6 7)))

instead of the expected

     ((0 3 6) (1 4 7) (2 5))

The following *does* work:

     my $l = ((1,2,3),(4,5,6),(7,8));
     say roundrobin(|$l);

Note that zip (the function) has the same issue, but Z (the operator) 
does not:

     my @l = (0,1,2),(3,4,5),(6,7);
     my $l = ((0,1,2),(3,4,5),(6,7));
     say zip(|@l);
     say zip(|$l);
     say [Z] @l;
     say [Z] $l;

outputs:

     (((0 1 2) (3 4 5) (6 7)))
     ((0 3 6) (1 4 7))
     ((0 3 6) (1 4 7))
     ((0 3 6) (1 4 7))

Unfortunately, there is no operator for roundrobin (right?) that I can 
use as a workaround.

Latest Rakudo Star:

This is Rakudo version 2016.11 built on MoarVM version 2016.11
implementing Perl 6.c.

Reply via email to