天平

有一个天平，天平左右两边各有若干个钩子，总共有C个钩子，有G个钩码，求将钩码全部挂到钩子上使天平平衡的方法的总数。（距离小于15，重量小于25，钩子和钩码都少于20个）

其中可以把天枰看做一个以x轴0点作为平衡点的横轴。

别看数据小，搜索只能过3个点，那方案数巨多无比，要用int64。

定义平衡度：当前所挂砝码分别乘其坐标的和，很明显平衡度=0时满足条件。

用f[i,j]表示当前挂到第i个钩子，平衡度为j的方案数，f[i,j]=xigema{f[i-1,k-x[k]*y[i]]},y记坐标，x记重量。

 

program balance(input,output);
const
   maxw    = 2000;
var
   x,y      : array[0..25] of longint;
   f      : array[0..25,-maxw..maxw+1000] of int64;
   n,m      : longint;
procedure init;
var
   i : longint;
begin
   readln(m,n);
   for i:=1 to m do
      read(x[i]);
   for i:=1 to n do
      read(y[i]);
end; { init }
procedure main;
var
   i,j,k : longint;
begin
   fillchar(f,sizeof(f),0);
   f[0,0]:=1;
   for i:=1 to n do
      for j:=1 to m do
     for k:=-maxw to maxw do
        f[i,k+x[j]*y[i]]:=f[i,k+x[j]*y[i]]+f[i-1,k];
end; { main }
procedure print;
begin
   writeln(f[n,0]);
end; { print }
begin
   assign(input,'balance.in');reset(input);
   assign(output,'balance.out');rewrite(output);
   init;
   main;
   print;
   close(input);
   close(output);
end.