Anonymous
public text v1 · immutable#!/usr/bin/gawk -f
{
for(i = 1; i <= length; ++i) {
l = substr($0, i, 1)
if (l ~ /[[:alpha:]]/)
++c[l]
}
}
END {
asorti(c, fl)
for (i = 1; i in fl; ++i)
printf("%s %d\n", fl[i], c[fl[i]])
}
#!/usr/bin/gawk -f
{
for(i = 1; i <= length; ++i) {
l = substr($0, i, 1)
if (l ~ /[[:alpha:]]/)
++c[l]
}
}
END {
asorti(c, fl)
for (i = 1; i in fl; ++i)
printf("%s %d\n", fl[i], c[fl[i]])
}