delete words by 51b

char*p,*q,s[200],*r;x;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,200);for(q=p=index(s,10);*++q;)for(r="\x01\r\xf3\xff";*r;r++)f(0);puts(++p);}

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

download

return to the top page