11965 - Extra Spaces

[brianfry713]

Not in freepascal. Use ansistring instead of string.

[Hasselli]

Code: Select all

procedure Shift(var s: ansistring; ind: Integer);
var
  i: Integer;

begin
  for i := ind to length(s) do
    s[i] := s[i + 1];
  setlength(s, length(s) - 1);
end;

var
  i, j, t, tt, n: Integer;
  s: ansistring;

begin
  Readln(t);
  for tt := 1 to t do
  begin
    Readln(n);
    Writeln('Case ', tt, ':');
    for i := 1 to n do
    begin
      Readln(s);
      for j := 1 to Length(s) do
        While (s[j] = ' ') and (s[j + 1] = ' ') do
          Shift(s, j);
      Writeln(s);
    end;
    if tt < t then
   Writeln;
  end;
end.

got Runtime Error with this code.

[brianfry713]

You are trying to read beyond the length of the string, if j=length(s), s[j+1] would give RE. Also your algorithm is too slow.