vijos 1020

dfs

program work; type tarray=array[0..1025] of longint; var n,m,i,wb,sa,maxwaste,l,r,mid,minb,waste,yuan:longint; a,b,sb,bp:tarray; rest:array[0..50] of longint; ok:boolean; procedure qsort(var a:tarray;l,r:longint); procedure sort(l,r:longint); var i,j,x,y:longint; begin i:=l; j:=r; x:=a[(l+r)div 2]; repeat while a[i]<x do inc(i); while a[j]>x do dec(j); if i<=j then begin y:=a[i]; a[i]:=a[j]; a[j]:=y; inc(i); dec(j); end; until i>j; if l<j then sort(l,j); if i<r then sort(i,r); end; begin sort(l,r); end; procedure dfs(p,waste:longint); var i,l:longint; begin if p=0 then ok:=true else if waste<=maxwaste then begin if b[p]=b[p+1] then l:=bp[p+1] else l:=1; for i:=l to n do begin if rest[i]>=b[p] then begin bp[p]:=i; rest[i]:=rest[i]-b[p]; if rest[i]<minb then dfs(p-1,waste+rest[i]) else dfs(p-1,waste); rest[i]:=rest[i]+b[p]; end; if ok then break; end; end; end; begin assign(input,'work.in'); reset(input); assign(output,'work.out'); rewrite(output); read(n); for i:=1 to n do read(a[i]); read(m); for i:=1 to m do read(b[i]); qsort(a,1,n); for i:=1 to n do rest[i]:=a[i]; qsort(b,1,m); minb:=b[1]; waste:=0; for i:=1 to n do if a[i]<minb then waste:=waste+a[i]; sa:=0; for i:=1 to n do sa:=sa+a[i]; wb:=0; sb[0]:=0; repeat inc(wb); sb[wb]:=sb[wb-1]+b[wb]; until (sb[wb]>sa) or (wb=m+1); l:=0; r:=wb; repeat mid:=(l+r)div 2; ok:=false; maxwaste:=sa-sb[mid]; yuan:=b[mid+1]; b[mid+1]:=-1; dfs(mid,waste); b[mid+1]:=yuan; if ok then l:=mid else r:=mid; until r-l<=1; writeln(l); close(input); close(output); end.

 

	From Vivian Snow 切蛋糕

描述 Description     　　Facer今天买了n块蛋糕，不料被信息组中球球等好吃懒做的家伙发现了，没办法，只好浪费一点来填他们的嘴巴。他答应给每个人留一口，然后量了量每个人口的大小。Facer有把刀，可以切蛋糕，但他不能把两块蛋糕拼起来，但是他又不会给任何人两块蛋糕。现在问你，facer怎样切蛋糕，才能满足最多的人。（facer的刀很强，切的时候不会浪费蛋糕）。               输入格式 Input Format     第一行n，facer有n个蛋糕。接下来n行，每行表示一个蛋糕的大小。再一行一个数m，为信息组的人数，然后m行，每行一个数，为一个人嘴的大小。(1<=n<=50, 1<=m<=1024)               输出格式 Output Format     一行，facer最多可以填多少张嘴巴。               样例输入 Sample Input     4 30 40 50 25 10 15 16 17 18 19 20 21 25 24 30               样例输出 Sample Output     7               时间限制 Time Limitation     各个测试点1s               来源 Source     Vivian Snow From facer, Section 4.1 Fence Rails