[洛谷1580]yyy loves Easter_Egg I

题目背景

Soha的出题效率着实让人大吃一惊。OI，数学，化学的题目都出好了，物理的题还没有一道。于是，Huntfire，absi2011，lanlan对soha进行轮番炸，准备炸到soha出来，不料，人群中冲出了个kkksc03……

题目描述

yyy loves OI（Huntfire），yyy loves Maths（lanlan），yyy loves Chemistry（absi2011）对yyy loves Physics（soha）进行轮番炸，轰炸按照顺序进行，顺序为Huntfire，lanlan，absi2011。
现在这一题中吗，我们不考虑太复杂的队形形式。我们认为只要这一句内含有且恰好含有一次@，@的人和上一句话一样就算为队形。
比如以下也视为队形
yyy loves OI : @yyy loves Microelectronic 
yyy loves Maths : @yyy loves Microelectronic 我佩服soha的出题效率
yyy loves OI : @yyy loves Microelectronic +1
yyy loves Chemistry : +1 @yyy loves Microelectronic 
若艾特的人与第一个人不同，就算队形被打破。若这个人在队形被打破之前出来吱声了，或者就是他打破队形了，就算（油）炸成功了。若（油）炸成功，输出“Successful @某某某 attempt”，若队形被破坏先输出“Unsuccessful @某某某 attempt”，再输出队形第一次被破坏的行数与第一次破坏队形的人的id。如果队形一直没被打破，就先输出“Unsuccessful @某某某 attempt”，再输出队形的长度，最后输出"Good Queue Shape"/* yyy loves Microelectronic 是kkksc03*/

输入输出格式

输入格式：

N行，为轰炸开始后的一段消息记录，每行一条消息。消息格式：“消息发送者 + ‘ : ’+消息内容”，每行消息长度不超过1000。（中文用拼音代替了）

输出格式：

若（油）炸成功，输出“Successful @某某某 attempt”，若队形被破坏第一行输出“Unsuccessful @某某某 attempt”，接下来一行输出队形第一次被破坏的行数，第三行输出第一次破坏队形的人的id，如果队形一直没被打破，就先输出“Unsuccessful @某某某 attempt”，再输出队形的长度，最后输出"Good Queue Shape"

输入输出样例

输入样例#1：

yyy loves OI : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Maths : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Chemistry : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Microelectronic : ni men wu liao me
yyy loves OI : @yyy loves Physics wo pei fu ni de chu ti xiao lv

输出样例#1：

Unsuccessful @yyy loves Physics attempt
4
yyy loves Microelectronic

输入样例#2：

yyy loves OI : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Maths : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Chemistry : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves OI : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Maths : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Chemistry : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves OI : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Maths : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Chemistry : @yyy loves Physics wo pei fu ni de chu ti xiao lv
yyy loves Physics : ni men gou le 

输出样例#2：

Successful @yyy loves Physics attempt

说明

@yyy loves Physics 我佩服你的出题效率
此题仅吐槽soha，纪念出题者的队形，此队形长达91行。 
对于100%的数据,每行消息长度<=1000
保证行数不超过50000
保证输入文件大小不超过4M
保证第一个说话的一定在艾特某人
保证大家的名字都是yyy loves ____ 的格式
保证每个人说的话中没有":"
保证第一个说话的一定艾特了一个人且只@了一个人
保证第一个说话的一定不会艾特自己
保证文件结束一定有一行空行 方便你判定文件结束
并不保证后面说话的艾特了几个人 然而艾特人数不为一个人视为破坏队形
并不保证后面说话是否会反复艾特同一个人
并不保证被炸的人一定破坏队形
并不保证这一题是或不是压轴题
并不保证这一套比赛存在压轴题
并不保证下一套比赛和这一套比赛一样水
并不保证群里除了这4个人和kkksc以外没有别人了
并不保证你没AC这题的情况下吐槽soha不会出事儿
AC了可以吐槽soha一句，soha不会介意。

思路

　　即使你没有保证然而我还是要吐槽，太恶心了这个题，字符串处理的题即使思路清晰，到最后也会被什么空格和各式各样的字符串函数搞得头昏脑涨。这道题我最高可以调到60分，但是我已经考虑到了所有题目描述中可能会有的情况，不管了，贴出源码，有神犇路过还请指教。

var i,j,sum,x,a,n:longint;
    s,juzi,id,iid,s1,ss,xx:ansistring;

procedure success;
begin
    writeln('Successful @',id,' attempt');
    halt;
end;
//at successfully

procedure ending;
begin
    writeln('Unsuccessful @',id,' attempt');
    writeln(sum-);
    writeln('Good Queue Shape');
    halt;
end;
//to the end

procedure prime;
begin
    writeln('Unsuccessful @',id,' attempt');
    writeln(sum);
    writeln(xx);
    halt;
end;
//break

begin
    readln(s);
    x:=pos(':',s);
    delete(s,,x+);
    id:='yyy loves ';
    delete(s,,);
    a:=pos(' ',s);
    ss:=copy(s,,a-);
    id:=id+ss;
    n:=length(id);
    delete(s,,n-);
    sum:=;
    while true do
        begin
            inc(sum);
            readln(s1);
            if s1='' then ending;
            x:=pos(':',s1);
            xx:=copy(s1,,x-);
            if xx=id+' '  then success;
            a:=pos('@',s1);
            if a= then prime;
            s1[a]:='*';
            delete(s1,,x+);
            iid:='yyy loves ';
            delete(s1,,);
            a:=pos(' ',s1);
            ss:=copy(s1,,a-);
            iid:=iid+ss;
            if (iid<>id) then prime;
            a:=pos('@',s1);
            if a<> then
                begin
                    delete(s1,,x+);
                    iid:='yyy loves ';
                    delete(s1,,);
                    a:=pos(' ',s1);
                    ss:=copy(s1,,a-);
                    iid:=iid+ss;
                    if iid<>id then prime;
                end;
        end;
end.

STD

var c,d,e:longint;  //c:队形长度;d:'@'位置;e:b的长度
    a,b:ansistring;  //a:输入的字符串;b:@的人  

begin
  readln(a);
  a:=a+' ';
  c:=;
  d:=pos('@',a);
  b:='yyy loves ';
  e:=d+;
  while a[e]<>' ' do begin  //确定b
    b:=b+a[e];
    inc(e);
  end;
  b:=b+' ';  //便与判断
  e:=length(b);
  readln(a);
  while a<>'' do begin  //如果@的人出现就输出
    if copy(a,,e)=b then begin
      writeln('Successful @'+b+'attempt');
      halt;
    end;
    d:=pos('@',a);
    if (copy(a,d+,e)<>b) and (copy(a,d+,e)+' '<>b) or (d=) then begin  //如果 @的不是同一个人 或 没有@人 就输出(特判'@某某某'出现在结尾且无空格的情况)
      writeln('Unsuccessful @'+b+'attempt');
      writeln(c);
      writeln(copy(a,,pos(':',a)-));
      halt;
    end;
    delete(a,d,);  //删除'@'
    if pos('@',a)<> then begin  //如果还有'@'即@了不止一个人就输出
      writeln('Unsuccessful @'+b+'attempt');
      writeln(c);
      writeln(copy(a,,pos(':',a)-));
      halt;
    end;
    readln(a);
    inc(c);
  end;
  writeln('Unsuccessful @'+b+'attempt');  //队形未打破但@的人未出现,输出
  writeln(c-);
  writeln('Good Queue Shape');
end.