21 lines
463 B
Text
21 lines
463 B
Text
link printf
|
|
|
|
procedure main(A)
|
|
every PrintCount(CountLetters(!A))
|
|
end
|
|
|
|
procedure CountLetters(fn) #: Return case insensitive count of letters
|
|
K := table(0)
|
|
if f := open(fn,"r") then {
|
|
every c := !map(|read(f)) do
|
|
if any(&lcase,c) then K[c] +:= 1
|
|
close(f)
|
|
return K
|
|
}
|
|
else write(&errout,"Unable to open file ",fn)
|
|
end
|
|
|
|
procedure PrintCount(T) #: Print the letters
|
|
every c := key(T) do
|
|
printf("%s - %d\n",c,T[c])
|
|
end
|