delete words by 51b

r,x;char*p,*q,s[200];f(n){x=s[n]-10?q[r*n]==s[n]?f(n+1),x?q[r*n]=32:0:0:1;}main(){read(0,s,s);for(q=p=index(s,10);*q;f(0))r=r>0?-r:~r?++q,1:13;puts(++p);}

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

download

return to the top page