229 条题解
-
0
jrf LV 7 @ 2009-10-25 11:41:54
55555.........用桶排超时四个......
-
0
szy_1996725 LV 8 @ 2009-10-17 21:05:59
这是动归？贪心秒杀
var w,n,s,t,i,j:integer;
y:boolean;
a,b:array[0..30000] of integer;
begin
readln(w);
readln(n);
for i:=1 to n do
begin
readln(a[i]);
inc(b[a[i]]);
end;
for i:=1 to n do
if b[a[i]]>0 then
begin
dec(b[a[i]]);
t:=w-a[i];
y:=false;
for j:=t downto 1 do
if b[j]>0 then begin s:=s+1; y:=true; b[j]:=b[j]-1; break; end;
if not(y) then s:=s+1;
end;
writeln(s);
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
快排然后取两头。。。。终于没超时！！！！！ -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案错误...
├ Hint: 我们也可以不写 ├ 标准行输出
├ 错误行输出├ 测试数据 06：答案错误...
├ Hint: 可以留空 ├ 标准行输出
├ 错误行输出├ 测试数据 07：答案错误...
├ Hint: 也就像下面这样 ├ 标准行输出
├ 错误行输出├ 测试数据 08：答案错误... ├ 标准行输出
├ 错误行输出├ 测试数据 09：答案错误... ├ 标准行输出
├ 错误行输出├ 测试数据 10：答案错误... ├ 标准行输出
├ 错误行输出---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：40 有效耗时：0msvar
h,i,j,n,w,s,left,right,x : longint ;
a : array[1..30000] of longint ;
procedure kuai(l,r:longint);
var
i,j,m,t:longint;
begin
i:=l;
j:=r;
m:=a[l];
repeat
while a[i]>m do inc(i);
while a[j] -
0
SecretAgent LV 10 @ 2009-09-22 00:21:45
快排一次再双指针扫描
排序O(nlogn)
扫描O(n)
时间复杂度O(nlogn)编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
song19931218 LV 9 @ 2009-09-20 10:01:08
program p1409;
var
w:array[0..300] of longint;
n,max,i,j,p:integer; m:longint;
function xiao(x,y:integer):integer;
begin
if x>y then x:=y;
xiao:=x;
end;
begin
read(max,n);
fillchar(w,sizeof(w),0);
m:=0; i:=1000; j:=0;
for i:=1 to n do
begin
read(p);
inc(w[p]);
if j0 do
begin
if (w[j]>=2) and (2*j0) and ((w[i]=0) or (j+i>max)) do dec(i);
if i=0 then begin inc(m,w[j]); w[j]:=0; end
else begin p:=xiao(w[j],w[i]); inc(m,p); w[j]:=w[j]-p; w[i]:=w[i]-p; end;
end;
while (w[j]=0) and (j>0) do dec(j)
end;
write(m);
end.
经典桶排序+贪心
贪心原则：尽量用两个重量大的搭配成一组。也有一种做法是将大的与小的搭配，可以证明这两种贪心的效果是一样的。。。。。。。
（注意处理当前最大重量的包自成组的情况；
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|-编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
1919191919 LV 8 @ 2009-09-18 19:56:26
quicksort+贪心=AC
= =、 -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
noname01.pas LV 7 @ 2009-09-11 23:47:08
求dp方程
-
0
dongtao123 LV 8 @ 2009-08-28 16:16:53
堆排还是快排啊
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms还是堆排写起来舒服
-
0
看看咱的明明排序（受启发于“明明的随机数”一题，因而得名）
program NOIP_2007_2;
var a:array[0..30000]of integer;
js:array[1..200]of integer;
i,j,k,n,m,l,w,ans:longint;
changed:boolean;
procedure init;
begin
readln(w,n);
fillchar(js,sizeof(js),0);
for i:=1 to n do
begin
readln(l);
inc(js[l]);
end;
for i:=1 to 200 do
for j:=1 to js[i] do
begin
inc(m);
a[m]:=i;
end;
end;
begin
init;
k:=n;
l:=0;
while k>l do
begin
inc(l);
if a[k]+a[l]
jrf
LV 7
@ 2009-10-25 11:41:54
