Anonymous user
Letter frequency: Difference between revisions
→{{header|Pascal}}
(→{{header|REXX}}: added specific letter counts as well as a separate character counts. -- ~~~~) |
|||
Line 771:
Printf.printf "%c -> %d\n" (char_of_int(i + base)) arr.(i)
done</lang>
=={{header|OxygenBasic}}==
<lang oxygenbasic>
indexbase 0
sys a,e,i,c[255]
string s=getfile "t.txt"
e=len s
for i=1 to e
a=asc(s,i)
++c(a)
next
cr=chr(13)+chr(10)
pr="Char Frequencies" cr cr
for i=32 to 255
pr+=chr(i) chr(9) c(i) cr
next
print pr
'putfile "CharCount.txt",pr
</lang>
=={{header|Pascal}}==
| |||