题目背景
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-1);
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,1,x+2);
id:=‘yyy loves ‘;
delete(s,1,10);
a:=pos(‘ ‘,s);
ss:=copy(s,1,a-1);
id:=id+ss;
n:=length(id);
delete(s,1,n-9);
sum:=1;
while true do
begin
inc(sum);
readln(s1);
if s1=‘‘ then ending;
x:=pos(‘:‘,s1);
xx:=copy(s1,1,x-1);
if xx=id+‘ ‘ then success;
a:=pos(‘@‘,s1);
if a=0 then prime;
s1[a]:=‘*‘;
delete(s1,1,x+2);
iid:=‘yyy loves ‘;
delete(s1,1,10);
a:=pos(‘ ‘,s1);
ss:=copy(s1,1,a-1);
iid:=iid+ss;
if (iid<>id) then prime;
a:=pos(‘@‘,s1);
if a<>0 then
begin
delete(s1,1,x+2);
iid:=‘yyy loves ‘;
delete(s1,1,10);
a:=pos(‘ ‘,s1);
ss:=copy(s1,1,a-1);
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:=2;
d:=pos(‘@‘,a);
b:=‘yyy loves ‘;
e:=d+11;
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,1,e)=b then begin
writeln(‘Successful @‘+b+‘attempt‘);
halt;
end;
d:=pos(‘@‘,a);
if (copy(a,d+1,e)<>b) and (copy(a,d+1,e)+‘ ‘<>b) or (d=0) then begin //如果 @的不是同一个人 或 没有@人 就输出(特判‘@某某某‘出现在结尾且无空格的情况)
writeln(‘Unsuccessful @‘+b+‘attempt‘);
writeln(c);
writeln(copy(a,1,pos(‘:‘,a)-1));
halt;
end;
delete(a,d,1); //删除‘@‘
if pos(‘@‘,a)<>0 then begin //如果还有‘@‘即@了不止一个人就输出
writeln(‘Unsuccessful @‘+b+‘attempt‘);
writeln(c);
writeln(copy(a,1,pos(‘:‘,a)-1));
halt;
end;
readln(a);
inc(c);
end;
writeln(‘Unsuccessful @‘+b+‘attempt‘); //队形未打破但@的人未出现,输出
writeln(c-1);
writeln(‘Good Queue Shape‘);
end.