Re^2: Perl6 Contest #2: P6 That Doesn't Look Like P5

If you have your trusty zipwith available:

sub zipwith ( Code $with, *@lists ) {
  gather {
    while any( @lists ) {
      take $with.( @lists>>.shift );
    }
  }
}
[download]

then you can change that zip line to:

zipwith( { $^a[ $^i ] }, @loop, @pos );
[download]

Comment on Re^2: Perl6 Contest #2: P6 That Doesn't Look Like P5 Select or Download Code