91 条题解
-
0
thomas0726 LV 4 @ 2008-11-13 07:28:00
还我分啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!还我分啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!还我分啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!还我分啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!还我分啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
0
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
de1ete!!!!!!!!!!
1111111111111111111111111111111
还我100分！！！！！！！！！！！！！！！！！ -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 9ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：9ms回溯+交表+朴素
-
0
我晕！！！测评系统有问题！！我比赛的时候交只有50分，然后结束了原封不动的又交了一次，就70分！！！
---|---|---|---|---|---|---|---|--
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 09：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 10：答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：70 有效耗时：0msvar n,i:longint;s:string;
function find(s:string):boolean;
var k,i,j,l,h:longint;vm:array['a'..'z']of integer;
vb:array['A'..'Z']of integer;
t:string;
begin
fillchar(vb,sizeof(vb),0);
fillchar(vm,sizeof(vm),0);
for i:=1 to length(s) do
begin
if (s[i]>='A')and(s[i]='A')and(s[i]=2 then t:=t+s[i];
end
else
begin
if vm[s[i]]>=2 then t:=t+s[i];
end;
end;
for k:=1 to length(t) do
for i:=k+1 to length(t) do
begin
if t[i]=t[k] then
begin
for h:=i+1 to length(t)-1 do
begin
for j:=h+1 to length(t) do
begin
if t[j]=t[h] then exit(true);
end;
end;
for h:=k-1 downto 1 do
for j:=i+1 to length(t) do
begin
if t[h]=t[j] then exit(true);
end;
end;
end;
exit(false);
end;
begin
readln(n);
for i:=1 to n do
begin
readln(s);
if find(s) then writeln('de1ete') else writeln('safe');
end;
end.
thomas0726
LV 4
@ 2008-11-13 07:28:00
