git @ Cat's Eye Technologies The-Dipple / hanging-a-canvas perl / letters
hanging-a-canvas

Tree @hanging-a-canvas (Download .tar.gz)

letters @hanging-a-canvas — raw · history · blame 

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
$|=1;
$c = ord('A'); $r = 1;
while (1) {
  print chr($c) x $r;
  print "\n";
  $c = $c + 1;
  if ($c > ord('Z')) { $c = ord('A'); $r += 1; }
}