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

[kelan]

If you have your trusty zipwith available:

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

then you can change that zip line to:

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