(use srfi-1)(let1 s(port-map values read-char)(map(rec,c(format #t"~a:~3@a "c(count(pa$ eq? c)s)))(cdr(delete-duplicates(sort s)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page