Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (10 sloc) 170 Bytes
#! /usr/bin/perl6
my %o;
for lines() {
my $a=lc($_);
$a ~~ s:g /<-[a .. z]>//;
map {%o{$_}++}, split '',$a;
}
for sort keys %o -> $k {
print "$k: %o{$k}\n";
}
You can’t perform that action at this time.