那位大牛能帮我看看我的可怜的程序啊！

program t4;

const maxn=10000;

var n:integer;

s:array[1..maxn+1] of string[11];

procedure init;

var i:integer;

begin

readln(n);

for i:=1 to n do

readln(s[i]);

end;

procedure main;

var i,j,k,l,p,q:integer;

flag:boolean;

begin

for i:=1 to n do

begin

flag:=true;

l:=length(s[i]);

for j:=1 to l-3 do

if flag and (pos(s[i][j],copy(s[i],j+1,l-j))>0) then

begin

p:=j+pos(s[i][j],copy(s[i],j+1,l-j));

for k:=j+1 to l-2 do

if (pos(s[i][k],copy(s[i],k+1,l-k))>0) then

begin

q:=k+pos(s[i][k],copy(s[i],k+1,l-k));

if (q>p) and (k>p) or (p>q) and (p>k) then

begin

writeln('de1ete');

flag:=false;

break;

end;

end;

end;

if flag then writeln('safe');

end;

end;

begin

init;

main;

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

我无语

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

N多次的改良程序换来了 0MS

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

我郁闷。。

A可以等于B。。我晕。。

AAAA是de1ete。。

。。。。

。。。无语。。

不知道是我语文差。。

还是这题题意不明。。

。。。。

哎。。

囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧囧

我晕

此题太WS了！！！！！！！！！！！

c++注意读入有空格！！！！！！！！！！！！！！！！！

我彻底无语！！！！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

囧！！！！！！！！！！！！！

A == B delete ！！！

有空格！！！！！！！！

不要 cin >>s ！！！！！！

要 cin.getline( s, L ) ！！！！！！！！！！！！！！！！！！

暴搜.

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：运行超时...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

什么情况？

20分的都是把ABAB算进去了吧。

So do 1.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 9ms

├ 测试数据 10：答案正确... 56ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：65ms

乱搜一通。。。可惜没有一次AC！

ABBA、AABB

A和B居然可以一样！！

这题 ....

还真是无聊到可以 .....

本题十分猥琐，注意每行中有可能有空格，故必须用gets，不能用scanf！！！

另外，读入个数后要把回车换行符读取。

for(i=0;i

交了6次。。。。。。。。。。。。。。。。

AC率暴降4个百分点。。。。。

还是直接穷举好。。。

枚举4个数C(n,4),你最大为10；C(10,4)=210;210*10000=2.1*(10^6)

枚举完全可一0MS

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 9ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：9ms

BS出题人，中间是'1'不是'l',模拟赛还出这种阴招，

不怕降RP呀，还我100分！！！！！！！！！！！！

竟然是1！！！！！！！！！！！！！！！！！！！！！

N^2的dp,呵呵^^^^

比较委琐的，靠把l改1拖我们分，乍一看还真看不出来，特别是在输出格式里

还是枚举吧......

穷举者，AC且0ms也。