20{(%stdin)(r)file =string readline pop dup()ne{cvx exec count 0 exch{count 1 sub{1 index sub count 1 roll}repeat pop}repeat neg =}if}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page