20{(%stdin)(r)file 99 string readline pop dup()ne{cvx exec 0 count 1 sub{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