CODEVS2144 砝码称重2 (哈希表)

由于m很大，所以不能使用DP。

注意到n≤30，直接暴力2^n会TLE。

所以，将砝码平均分成两份，对一份进行一次暴力，用哈希表存下可能的结果。

对下一份再进行一次暴力，在哈希表中搜索剩余的砝码重量是否存在，若存在则更新答案。

输出最小答案即可。

Program CODEVS2144;
const maxn=;
      maxh=;
var a:array[..maxn] of longint;
    n,i,ans:longint;
    m:int64;
    h:array[..maxh,..] of longint;
procedure insert(x,y:longint);
var hash:longint;
begin
  hash:=x mod maxh;
  while (h[hash,]<>-) and (h[hash,]<>x) do
    hash:=(hash+) mod maxh;
  if h[hash,]=- then
    begin
      h[hash,]:=x;
      h[hash,]:=y;
    end
  else
    if y<h[hash,] then h[hash,]:=y;
end;
function find(x:longint):longint;
var hash:longint;
begin
  hash:=x mod maxh;
  while (h[hash,]<>-) and (h[hash,]<>x) do
    hash:=(hash+) mod maxh;
  if h[hash,]=- then exit() else
    exit(h[hash,]);
end;
procedure dfs(x:longint;sum:int64;num:longint);
begin
  if sum>m then exit;
  if x=n div + then
    begin
       insert(sum,num);
       exit;
    end;
  dfs(x+,sum,num);
  dfs(x+,sum+a[x],num+);
end;
procedure work(x:longint;sum:int64;num:longint);
var j:longint;
begin
  if sum>m then exit;
  if x=n+ then
    begin
           if sum=m then
             begin
                   if num<ans then ans:=num;
                   exit;
             end;
       j:=find(m-sum);
       if j<> then
         begin
           if j+num<ans then
             ans:=j+num;
         end;
       exit;
    end;
  work(x+,sum,num);
  work(x+,sum+a[x],num+);
end;
begin
  for i:= to maxh do h[i,]:=-;
  readln(n,m);
  for i:= to n do readln(a[i]);
  ans:=maxn;
  dfs(,,);
  work(n div +,,);
  writeln(ans);
end.