Letter frequency: Difference between revisions
Content added Content deleted
(→{{header|TXR}}: Correct lang tags.) |
(→TXR Lisp: More concise.) |
||
Line 2,459: | Line 2,459: | ||
Z: 3238</pre> |
Z: 3238</pre> |
||
=== |
===TXR Lisp=== |
||
<lang txr>@(do ( |
<lang txr>@(do (let ((h (hash)) |
||
(let (ch) (gen (set ch (get-char s)) ch))) |
|||
(let ((h (make-hash nil nil t)) |
|||
(s (open-file "/usr/share/dict/words" "r"))) |
(s (open-file "/usr/share/dict/words" "r"))) |
||
(each ((ch (gun (get-char s)))) |
|||
(if (chr-isalpha ch) |
|||
(inc [h (chr-toupper ch) 0]))) |
|||
(let ((sorted [sort (hash-pairs h) > second])) |
|||
(each ((pair sorted)) |
|||
(tree-bind (key value) pair |
|||
(put-line `@key: @value`))))))</lang> |
|||
=={{header|Vala}}== |
=={{header|Vala}}== |