for(a<-"a";s=readLine grouped 2 toSeq;r=a to'z';c<-r)println(("|"/:r)((z,d)=>z+" #"(s.count(""+d+c==))).trim.tail)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page