Help for this page

Select Code to Download

Select or download this

OUTER: for (my $r = 0; $r < @primeNumbers; $r += $NumPerRow) {
  for (my $c = r; $c - $r < $NumPerRow; $c++) {
...
  }
  print "\n";
}