Revision as of 06:14, 13 March 2014 (view source) Kazinator (talk \| contribs) (→‎{{header\|TXR}}: Correct lang tags.) ← Older edit		Revision as of 06:41, 13 March 2014 (view source) Kazinator (talk \| contribs) (→‎TXR Lisp: More concise.) Newer edit →
Line 2,459: Z: 3238</pre> ===~~Just Embedded~~TXR Lisp=== <lang txr>@(do (~~defun~~let ~~lazy-char-stream~~((h (shash)) ~~(let (ch) (gen (set ch (get-char s)) ch)))~~ ~~(let ((h (make-hash nil nil t))~~ (s (open-file "/usr/share/dict/words" "r"))) (each ((ch (~~lazy~~gun (get-char~~-stream~~ s)))) (if (chr-isalpha ch) (inc [h (chr-toupper ch) 0]))) (~~dohash~~let (~~key~~(sorted ~~value~~[sort (hash-pairs h) > second])) (each (~~format~~(pair ~~t "~a: ~a\n" key value))~~sorted))~~</lang>~~ (tree-bind (key value) pair (put-line `@key: @value`))))))</lang> =={{header\|Vala}}==

Letter frequency (view source)