s:=0;File standardInput readLines map(v,list("-","_")map(c,if(0<a:=v occurancesOfSeq(c),writeln(s=s+a))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page