Description
详见https://www.luogu.org/problem/show?pid=1094
Solution
> -------
这是一道不错的贪心，虽然代码很短，但是证明还是挺考思维的
> -------
先从大到小排序
> -------
刚开始想将最大的和他能搭配的最大的搭配，比如图中a可以和c和d，但是我想选择c，
> -------
但是仔细一想其实没这个必要，
因为 ，如果a>b,c>d 而且 a+c<=w 那么b+c<=w 也就是说无论 a&c，b&d 或a&d，b&c都是两种
于是我们的搭配完全没有必要交叉，交叉的结果也是等于不交叉的
> -------
所以我们可以从外向内匹配【保证不交叉】
如果可以匹配就匹配不能就自己放一个盒子
Codes
1 var 2 n,w,i,j,ans:Longint; 3 a:array[1..30000] of longint; 4 b:array[1..30000] of Boolean; 5 6 procedure qsort(l,r: longint); 7 var 8 i,j,x: longint; 9 y:longint; 10 begin 11 i:=l; j:=r; 12 x:=a[(l+r) div 2]; 13 repeat 14 while (a[i]>x) do inc(i); 15 while (x>a[j]) do dec(j); 16 if not(i>j) then 17 begin 18 y:=a[i]; a[i]:=a[j]; a[j]:=y; 19 inc(i); j:=j-1; 20 end; 21 until i>j; 22 if l<j then qsort(l,j); 23 if i<r then qsort(i,r); 24 end; 25 26 begin 27 // assign(input,'t.in'); assign(output,'t.out'); 28 reset(input); rewrite(output); 29 30 readln(w); 31 readln(n); 32 for i:= 1 to n do readln(a[i]); 33 34 qsort(1,n); 35 36 i:=1; j:=n; 37 while i<=j do 38 begin 39 if a[i]+a[j]<=w then dec(j) ; 40 inc(i); 41 ans:=ans+1; 42 end; 43 44 writeln(ans); 45 close(input); close(output); 46 end.