Letter frequency: Difference between revisions
→{{header|TXR}}: Correct lang tags.
(Added zkl) |
(→{{header|TXR}}: Correct lang tags.) |
||
Line 2,438:
===Pattern Matching Plus Embedded Lisp===
<lang
@(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
(let (ch) (gen (set ch (get-char s)) ch)))
|