5 lines
229 B
Text
5 lines
229 B
Text
(let* ((s (open-file "/usr/share/dict/words" "r"))
|
|
(chrs [keep-if* chr-isalpha (gun (get-char s))])
|
|
(h [group-reduce (hash) chr-toupper (op succ @1) chrs 0]))
|
|
(dohash (key value h)
|
|
(put-line `@key: @value`)))
|