比一比，赛一赛，谁的程序比我快 [复制链接]

1253171 15:56:19
1 Aug 2006 les 1032 Pascal Accepted 0.031 254 KB

偶还没做ural 1032 呢，偶现在就去做！

引用第0楼勇气les于2006-08-01 18:04发表的“比一比，赛一赛，谁的程序比我快”:
1253171 15:56:19
1 Aug 2006 les 1032 Pascal Accepted 0.031 254 KB

1253637 20:52:19
1 Aug 2006 1032 Pascal Accepted
0.015 318 KB


偶的程序比你的快！



大哥：
      偶的时间可不到你一半哦。 （虽然偶用的内存比你多，但官网的 Memory Limit: 16 MB，偶用318KB，应该不足为耻吧~~~）




你的程序内存用得比我少，可以把程序发上来，大家交流一下吗？




这个题做到O（N）才是高手！（具体怎么做偶也不知道）
由抽屉原理，很容易得到O(n)的算法 ！（具体怎么做偶也不知道，你知道么？）

这题偶用 packed 将数组打包，想减少使用的内存，但好象占用内存并没有减少~~~~

我的算法是o(n)的
至于为什么有人会比我快一倍，我也不知道

可能一:那个人没有附初值，直接算得

const
maxn=10000;
var
a,b,c:array[0..maxn]of longint;
i,j,k,l,n,m:longint;
begin
{assign(input,'a.in');reset(input);   }
readln(n);for i:=0 to n-1 do b[i]:=-1;a[0]:=0;b[0]:=0;
for i:=1 to n do begin
  read(c[i]);a[i]:=(a[i-1]+c[i])mod n;
  if b[a[i]]=-1 then b[a[i]]:=i else break;
end;
writeln(i-b[a[i]]);
for j:=b[a[i]]+1 to i do writeln(c[j]);
end.

引用第3楼bluetear于2006-08-01 23:06发表的“”:
1253637 20:52:19
1 Aug 2006 1032 Pascal Accepted
.......

这个程序是你的吗？
是的话他本来就是o(n)de

真的没人叫我大哥了，不爽阿

完了~~~，偶把昨天那1032又交了几遍~~~

偶的程序今天变慢了！！！
变成了 0.031s! ，比昨天慢了一倍！ 天啊！？ 这是什么原因？




ural 的在线提交不稳定！ （可能与网速有关）

今天下午偶同一程序交2遍结果不一样！

楼主大哥，快把你那0.031s的程序去测一下，说不定就会到0.015s哦！

1254578 16:00:35
2 Aug 2006 1032 Pascal Accepted
0.031 254 KB

1254580 16:01:40
2 Aug 2006 1032 Pascal Accepted
0.031 326 KB

我又交了一次，又变了！

1254602 16:22:18
2 Aug 2006 1032 Pascal Accepted
0.015 254 KB


现在偶的时间、空间效率都不比楼主差了啊！

我的算法和你的差不多~~~

我的数组是没有附初值，我把 附初值 的语句加上去之后，时间就变成0.031s了~~~

果然是 附初值 的问题 ，在主程序中用的数组，附初值就省了吧~~~

这次用时打平，下次再比！

不过，偶有一点不明白。
偶的变量实在没你定义得那么多，为何我用了318 KB？而你只用了254 KB？



你的定义部分：
const
maxn=10000;
var
a,b,c:array[0..maxn]of longint;
i,j,k,l,n,m:longint;

我的定义部分：
var n,i,j:integer;
  a,y,h:array[0..10000]of integer;