17 lines
361 B
Text
17 lines
361 B
Text
sequence lc = repeat(0,#7E)
|
|
integer fn = open(command_line()[$],"rb"), ch
|
|
while 1 do
|
|
ch = getc(fn)
|
|
if ch=-1 then exit end if
|
|
if ch>=' ' and ch<#7F then
|
|
lc[ch] += 1
|
|
end if
|
|
end while
|
|
close(fn)
|
|
|
|
for i=' ' to #7E do
|
|
if lc[i]!=0 then
|
|
printf(1,"'%c': %d%s",{i,lc[i],iff(mod(i,32)=31?'\n':'\t')})
|
|
end if
|
|
end for
|
|
{} = wait_key()
|