95 条题解
-
0
JackDavid127 LV 10 @ 2009-03-23 20:56:51
压位高精就是快……
我先前压五位，错两个点，发现循环时变量没自加，改过来，有一个点内存溢出，把数组开大，两个点溢出。无奈，改成压八位，AC……
-
0
├ 测试数据 01：运行超时|格式错误...
├ 测试数据 02：运行超时|格式错误...
├ 测试数据 03：运行超时|格式错误...
---|---|---|---|---|---|---|---|---|---|---|-
改了好长时间,现在才发现居然不止一组测试数据
---|---|---|---|---|---|---|---|---|---|---|-编译通过...
├ 测试数据 01：内存溢出...
├ 测试数据 02：内存溢出...
├ 测试数据 03：内存溢出...
---|---|---|---|---|---|---|---|---|---|---|-
居然如此整齐的内存益出.
编译通过...
├ 测试数据 01：答案正确... 134ms
├ 测试数据 02：答案正确... 134ms
├ 测试数据 03：答案正确... 103ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：371ms -
0
无语了 压缩了还超`
\program p1136;
{online}
var
k,w,n,l1,l2,i,j,x,y:longint;
a,b:array[1..100] of longint;
p:ansistring;
function add(s1,s2:ansistring):string;{inline}
begin
add:='';
l1:=length(s1);
l2:=length(s2);
x:=1;
while (l1>8) do begin
p:=copy(s1,l1-7,8);
val(p,a[x],w);
l1:=l1-8;
inc(x);
end;
p:=copy(s1,1,l1);
val(p,a[x],w);
y:=1;
while (l2>8) do begin
p:=copy(s2,l2-7,8);
val(p,b[y],w);
l2:=l2-8;
inc(y);
end;
p:=copy(s2,1,l2);
val(p,b[y],w);
if x0 then begin
str(w,p);
add:=p+add;
end;
j:=1;
while (add[j]='0') do inc(j);
add:=copy(add,j,length(add)-j+1);
end;
function f(t:longint):ansistring;{inline}
begin
if (t=0) or (t=1) then exit('1');
if t and 1=0 then f:=add(f(t-1),f(t shr 1))
else f:=f(t-1);
end;
begin
while not(eoln) do begin
readln(n);
writeln(f(n));
end;
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 41ms
├ 测试数据 03：答案正确... 41ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：82msprogram vijos1136;
//---|---|---|---|---|---|---|---|---|---|---|--
type
arr=array[0..6]of longint;
const
nmax=3000000;
max=1000000000;
var
f:array[0..nmax shr 1]of arr;
n,i,j,now,len:longint;
s:string;
//---|---|---|---|---|---|---|---|---|---|---|--
function getmax(a,b:longint):longint;
begin
if a>=b then exit(a);
exit(b);
end;
//---|---|---|---|---|---|---|---|---|---|---|--
procedure calc(var a:arr; b,c:arr);
var
i,jw,x:longint;
begin
jw:=0;
for i:=1 to getmax(b[0],c[0]) do begin
x:=b[i]+c[i]+jw;
jw:=x div max;
a[i]:=x mod max;
end;
a[0]:=i;
if jw0 then begin
a:=jw; inc(a[0]);
end;
end;
//---|---|---|---|---|---|---|---|---|---|---|--
begin
f[0,1]:=1;
f[0,0]:=1;
now:=0;
while not eof do begin
readln(n);
n:=n shr 1;
if n>now then begin
for i:=now+1 to n do
calc(f[i],f,f[i shr 1]);
now:=n;
end;
len:=f[n,0];
for i:=len downto 1 do begin
if f[n,i]0 then begin
str(f[n,i],s);
if (length(s) -
0
编译通过...
├ 测试数据 01：答案正确... 56ms
├ 测试数据 02：答案正确... 103ms
├ 测试数据 03：答案正确... 88ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：247ms
这是PUPPY
编译通过...
├ 测试数据 01：运行超时...
├ 测试数据 02：运行超时...
├ 测试数据 03：运行超时...
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：0 有效耗时：0ms
这是DOLPHIN
相同的程序，差距怎么就这么大呢？
JackDavid127
LV 10
@ 2009-03-23 20:56:51
