uniq words by uru

var c:char;s,t:string(9999)=^`;begin
repeat
read(c);if c=^`then begin
write(copy(t+^j,2+9*pos(t+c,s+c)));s:=s+t;t:=''end;t:=t+c;until 1=0end.

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

download

return to the top page