gistfile1.txt

# histogram of bytes in a file.
use v6;

#my $fh = slurp :bin;
my @c;
my $i = 0;

loop ($i=255; $i>=0; $i--) {
  @c[$i]=0;
}

my $count=0;
while defined $_ = $*IN.getc {
  $count++;
  $i = ord($_);
  if ($i>255) { $i=255; }
  @c[$i]++;
}

$i=0;
for @c {
  print sprintf("%c %7d ",$i,$_);
  $i++;
  if ($i%8 == 0) { say; }
}

say "\ntotal: ", $count;