Letter frequency: Difference between revisions

Content added Content deleted
(Added zkl)
(→‎{{header|TXR}}: Correct lang tags.)
Line 2,438:
===Pattern Matching Plus Embedded Lisp===
 
<lang lisptxr>@(do (defvar h (make-hash nil nil t)))
@(collect :vars ())
@(coll :vars ())@\
Line 2,447:
@(do (dohash (key value h)
(format t "~a: ~a\n" key value)))</lang>
 
{{out}}
 
<pre>$ ./txr letterfreq.txr /usr/share/dict/words
Line 2,459 ⟶ 2,461:
===Just Embedded Lisp===
 
<lang lisptxr>@(do (defun lazy-char-stream (s)
(let (ch) (gen (set ch (get-char s)) ch)))
 
Retrieved from "https://rosettacode.org/wiki/Letter_frequency"