CDQZ_Training 2012-05-24 词编码

http://cdqz.openjudge.cn/noip/1009/

 

【题目描述】

      一个发送机可以通过一条隧道发送一些以二进制代码组成的单词。在其尽头的接收机可以使用特殊技术恢复到最初的单词。每个单词最初都由0和1组成。所有的单词最初长上簦(上簦:度)都为n(4≤N  ≤1000)。当穿过隧道之后单词可能发生以下几种情况之一：
  (1)任意(一个)0被1取代
  (2)任意(一个)符号被删除
  (3)一个符号(0或1)被插入到任何位置
  (4)不改变
  我们知道最初的单词都具有以下性质：有1的位置号的总和是N+1的倍数，或者是0。
  【input】
  N和转换后的单词，每个单词占一行。单词数不大于2001．不会有其它任何东西，除了一些空格与空行，
  【Output】
  你的程序应该打印输出原始序列的词，注意换行。
    若有多解，操作4优先，不行则按操作1,2,3优先。同一操作，按操作位置最先的优先。同一操作，按操作位置最先的优先(从左到右数起1,2,3,…N)，还有操作2时，被删数列，先在被删数列添0，不行再添1。
  如果没答案输出-1
  【Sample input】
  4
  0000
  011
  1011
  11011
  【Sample Output】
  0000
  0110
  1001
  1111

1000ms/128000KB

 题解：裸着模拟就OK了，再加个传说中的后缀处理，保证每种操作在O(n)的复杂度。顺便表示orz强大的std，各种不科学……

 心得：先是各种wa，调了半节课终于过点了，然后就各种t。尝试了三种写法才AC，好吧。。。
话说以后考试神马的还是用心检查下，多试几组数据，尽量避免奇葩的错误。

 

var
        a:ansistring;
        m,n,i,num:longint;
        numa:array[1..1001]of longint;
procedure main(b:ansistring);
  procedure outp(b:ansistring;point,instr:longint);
        var
                t:longint;
        begin
                for t:=1 to point-1 do
                  write(b[t]);
                if instr<>0 then
                  if instr>0 then begin
                        if instr>1 then write('0')
                        else write('1');
                        for t:=point to length(b) do write(b[t]);
                  end else
                        if instr<0 then
                        for t:=point+1 to length(b) do write(b[t]);
                writeln;
        end;
  function right(j:longint):boolean;
        begin
                if (j mod (n+1)=0) then exit(True) else exit(False);
        end;
  procedure get(b:ansistring);
        var
                t,s:longint;
        begin
                num:=0;
                s:=0;
                for t:=length(b) downto 1 do begin
                  if b[t]='1' then begin
                        inc(num,t);
                        inc(s);
                  end;
                  numa[t]:=s;
                end;
        end;
  function change(var b:ansistring):boolean;
        var
                t:longint;
        begin
                change:=False;
                for t:=1 to length(b) do
                  if b[t]='1' then begin
                  dec(num,t);
                  if right(num) then begin
                  b[t]:='0';
                  exit(True);
                  end else inc(num,t);
                end;
        end;
  function delete(b:ansistring):boolean;
        var
                t,s:longint;
        begin
                delete:=False;
                s:=num;
                for t:=1 to length(b)+1 do begin
                  inc(num,numa[t]);
                  if right(num) then begin
                        outp(b,t,2);
                        exit(True);
                  end else
                  inc(num,t);
                  if right(num) then begin
                        outp(b,t,1);
                        exit(True);
                  end else
                num:=s;
                end;
        end;
  function insert(b:ansistring):boolean;
        var
                t,s:longint;
        begin
                insert:=False;
                s:=num;
                for t:=1 to length(b) do begin
                  dec(num,numa[t]);
                  if b[t]='1' then dec(num,t-1);
                  if right(num) then begin
                        outp(b,t,-1);
                        exit(True);
                  end else
                  num:=s;
                end;
        end;
  var
        s,t:longint;
  begin
        get(b);
        s:=length(b);
        if s=n then begin
                if right(num) then outp(b,n+1,0)
                else if change(b) then outp(b,n+1,0)
                else writeln('-1');
        end else if s=n-1 then begin
                if not delete(b) then writeln('-1');
        end else if s=n+1 then begin
                if not insert(b) then writeln('-1');
        end else writeln('-1');
  end;
begin
        readln(n);
        while not eof do begin
                fillchar(numa,sizeof(numa),0);
                readln(a);
                if a<>'' then (main(a));
        end;
end.