asunder by twice11

import Text.Printf
main=do x<-getContents;mapM(\c->printf"%c: %2d\n"c.length$filter(==c)x)$['A'..'Z']++['a'..'z']

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page