9 lines
226 B
Text
9 lines
226 B
Text
@(do (defvar h (hash :equal-based)))
|
|
@(repeat)
|
|
@(coll :vars ())@\
|
|
@{letter /[A-Za-z]/}@(filter :upcase letter)@\
|
|
@(do (inc [h letter 0]))@\
|
|
@(end)
|
|
@(end)
|
|
@(do (dohash (key value h)
|
|
(format t "~a: ~a\n" key value)))
|