Letter frequency: Difference between revisions

</pre>

=={{header|Ksh}}==

<lang ksh>

#!/bin/ksh

# Count the occurrences of each character

######

# main #

######

typeset -iA freqCnt

while read; do

for ((i=0; i<${#REPLY}; i++)); do

(( freqCnt[${REPLY:i:1}]++ ))

done

done < $0 ## Count chars of this code file

for ch in "${!freqCnt[@]}"; do

[[ ${ch} == ?(\S) ]] && print -- "${ch} ${freqCnt[${ch}]}"

done

</lang>

{{out}}

Counts the characters of the source code file

<pre>

! 2

" 4

# 19

$ 8

& 2

( 5

) 5

+ 4

- 3

/ 2

0 2

1 1

: 2

; 5

< 2

= 3

? 1

@ 1

A 1

C 6

E 2

L 2

P 2

R 2

S 1

Y 2

[ 5

] 5

a 6

b 1

c 12

d 8

e 18

f 9

h 11

i 12

k 1

l 2

m 1

n 14

o 14

p 2

q 4

r 13

s 5

t 12

u 3

w 1

y 1

{ 7