Letter frequency: Difference between revisions
no edit summary
(→{{header|Haskell}}: Standard operators perhaps now preferable to Control.Arrow ?) |
No edit summary |
||
Line 2,984:
Q 378
</pre>
=={{header|Emacs Lisp}}==
<syntaxhighlight lang="emacs lisp">
(defun tally-letter-frequency-in-file ()
(let ((alphabet "abcdefghijklmnopqrstuvwxyz")
(current-letter)
(count)
(case-fold-search t)) ; ignores case
(find-file "~/Documents/Elisp/MobyDick.txt") ; identify file to work with
(while (>= (length alphabet) 1) ; as long as there is at least 1 letter left in alphabet
(beginning-of-buffer)
(setq current-letter (substring alphabet 0 1)) ; set current-letter to first letter of alphabet
(setq count (how-many current-letter)) ; count how many of this letter in file
(end-of-buffer)
(insert (format "\n%s%s - %7d" current-letter (upcase current-letter) count))
(setq alphabet (substring alphabet 1 nil))) ; remove first letter from alphabet
(insert "\n")))
</syntaxhighlight>
{{out}}
<pre>
aA - 79220
bB - 17203
cC - 23318
dD - 38834
eE - 119345
fF - 21252
gG - 21287
hH - 63769
iI - 66671
jJ - 1176
kK - 8228
lL - 43349
mM - 23626
nN - 66778
oO - 70808
pP - 17873
qQ - 1581
rR - 53589
sS - 65136
tT - 89874
uU - 27205
vV - 8724
wW - 22556
xX - 1064
yY - 17242
zZ - 635
</pre>
=={{header|Erlang}}==
| |||