Letter frequency: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,459: / Line 2,459: @@
 Z: 3238</pre>
-===Just Embedded Lisp===
+===TXR Lisp===
-<lang txr>@(do (defun lazy-char-stream (s)
+<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")))
-         (each ((ch (lazy-char-stream s)))
+       (each ((ch (gun (get-char s))))
-           (if (chr-isalpha ch)
+         (if (chr-isalpha ch)
-             (inc [h (chr-toupper ch) 0])))
+           (inc [h (chr-toupper ch) 0])))
-         (dohash (key value h)
+       (let ((sorted [sort (hash-pairs h) > second]))
-           (format t "~a: ~a\n" key value))))</lang>
+         (each ((pair sorted))
+           (tree-bind (key value) pair
+              (put-line `@key: @value`))))))</lang>
 =={{header|Vala}}==