11 lines
356 B
Text
11 lines
356 B
Text
put file "~/Documents/addresses.csv" into source
|
|
|
|
repeat with each character of source
|
|
if it is a controlChar then next repeat -- skip control characters
|
|
if it is a lowercase then put "." after it -- make keys distinct
|
|
add 1 to counts.(it)
|
|
end repeat
|
|
|
|
repeat with each (theChar, count) in counts
|
|
put char 1 of theChar & " —> " & count
|
|
end repeat
|