Select Code to Download

$ ls -l x.* | perl -lanE 'say "$F[8]\t$F[4] bytes"'
x.go    694 bytes
x.pl    294 bytes

$ time go run x.go > /dev/null 

...
real    0m5.358s
user    0m4.778s
sys    0m0.497s

$ go build x.go
$ time ./x > /dev/null 
...
real    0m0.947s
user    0m0.890s
sys    0m0.126s

$ cat x.go
package main
...
for my $int ( sort keys %count ) {
    printf "%d\t%d\n", $int, $count{$int};
}