题解 P1164 【小A点菜】

陈科睿1352574412 · 2016-09-17 20:07:19 · 题解

不用动态规划照样AC，直接暴力搜索。不过要加上一个快速排序现将他们排好顺序。从小的开始。如果当前数比m-目前和还来的大。那么就尴尬了。把这个给exit掉。

代码见下：

var
  a:array[1..100000] of longint;
  b:array[1..100000] of boolean;
  n,m,i,total:longint;
procedure qsort(l,r:longint);
var
  i,j,mid,p:longint;
begin
  i:=l;
  j:=r;
  mid:=a[(l+r) div 2];
  repeat
    while a[i]<mid do inc(i);
    while a[j]>mid do dec(j);
    if i<=j then begin
      p:=a[i]; a[i]:=a[j]; a[j]:=p;
      inc(i);
      dec(j);
    end;
  until i>j;
  if l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;
procedure dfs(i,j:longint);
var
  k:longint;
begin
  if (j>=m) or (i=n) then begin
    if j=m then begin
      inc(total);
    end;
    exit;
  end;
  for k:=i+1 to n do begin
    if a[k]>m-j then exit;
    if b[k]=true then begin
      b[k]:=false;
      dfs(k,j+a[k]);
      b[k]:=true;
    end;
  end;
end;
begin
  readln(n,m);
  for i:=1 to n do begin
    read(a[i])
  end;
  readln;
  qsort(1,n);
  total:=0;
  fillchar(b,sizeof(b),true);
  dfs(0,0);
  writeln(total);
end.