[洛谷1580]yyy loves Easter

本文主要是介绍[洛谷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;
beginwriteln('Successful @',id,' attempt');halt;
end;
//at successfullyprocedure ending;
beginwriteln('Unsuccessful @',id,' attempt');writeln(sum-1);writeln('Good Queue Shape');halt;
end;
//to the endprocedure prime;
beginwriteln('Unsuccessful @',id,' attempt');writeln(sum);writeln(xx);halt;
end;
//breakbeginreadln(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 dobegininc(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 thenbegindelete(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.

View Code

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.