Array.transpose, anyone?

ArrayTranspose.pl6

use v6.c;

sub transpose(@a) {
  my @ar;

  if @a.all ~~ List {
    my $maxdim = @a.map( *.elems ).max;
    @ar = @a.map( *.Array );
    for @ar -> $a {
      $a.push: |(Nil xx ($maxdim - $a.elems)) if $a.elems < $maxdim;
    }
    @ar = [Z] @ar;
  } else {
    @ar = @a.map( { [$_] });
  }

  @ar;
}

sub MAIN {

  my @t;

  @t = (<A B C>,<D E F>,<G H I>);
  say @t;
  say transpose(@t);

  @t = <X Y Z>;
  say @t;
  say transpose(@t);

  @t = (<A B C>,<D E>, ['G']);
  say @t;
  say @t = transpose(@t);

}