测评机: Xeond[6]
得分: 70分
提交日期: 2013-6-5 17:23:00
有效耗时: 1813毫秒
测试结果1: 通过本测试点|有效耗时203ms
测试结果2: 通过本测试点|有效耗时172ms
测试结果3: 通过本测试点|有效耗时171ms
测试结果4: 通过本测试点|有效耗时235ms
测试结果5: 通过本测试点|有效耗时328ms
测试结果6: 选手程序运行超过时限
测试结果7: 输出过长|用户输出数据超过标准输出两倍[标准输出4位|选手输出18位]
测试结果8: 输出过少|用户输出数据少于标准输出的50%[标准输出206303位|选手输出18位]
测试结果9: 通过本测试点|有效耗时266ms
测试结果10: 通过本测试点|有效耗时438ms
提交代码: view sourceprint?01.var
02.
a,s,ss:ansistring;
03.
sum,total:int64;
04.
w:ansistring;
05.
tt:array[0..200000]of int64;
06.
i:longint;
07.begin
08.
readln(s);
09.
readln(a);
10.
ss:=s;
11.
total:=0;
12.
while pos('a',s)=0 do
13.
begin
14.
inc(total);
15.
w:=w+' '+s;
16.
for i:=1 to length(s)do
17.
s[i]:=chr(ord(s[i])-1);
18.
end;
19.
inc(total);
20.
w:=w+' '+s;
21.
while pos('z',ss)=0 do
22.
begin
23.
for i:=1 to length(ss)do ss[i]:=chr(ord(ss[i])+1);
24.
inc(total);
25.
w:=w+' '+ss;
26.
end;
27.
sum:=0;
28.
for i:=1 to length(a)-length(s)+1 do
29.
if pos(copy(a,i,length(s)),w)<>0 then begin sum:=sum+1;tt[sum]:=i;end;
30.
if sum=0 then writeln('WZY died of twins!')
31.
else writeln(sum);
32.
for i:=1 to sum do writeln(tt[i]);
33.end.