squeeze FIXED by BioFALSE

var s:string;i:byte;begin
while not eof do begin readln(s);for i:=2to length(s)do if s[i]<>s[i-1]then write(s[i-1]);writeln(s[i])end;end.

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

download

return to the top page