Select Code to Download

sub groups_of_n ($n,*@a) {
  return map { [ @a[$_ + ^$n]:v ] }, ^@a:by($n);
}

sub groups_of_n ($n,*@a) {
  return map { [ @a[$_ ..^ min($_+$n,+@a)]] }, (0..@a.end/$n) »*« $n;
}

sub groups_of_n ($n,*@a) {
  return map { [ @a[$_ ..^ ($_+$n min +@a)]] }, (0..@a.end/$n) »*» $n;
}