const maxx=4000;
          minn=-4000;
var n,i,j,k:longint;
      d:array[1..40,minn..maxx] of longint;
      a:array[1..40] of longint;
      f:text;
//
procedure input;
begin
assign(f,'EXP.INP');
reset(f);
readln(f,n,k);
for i:=1 to n do read(f,a[i]);
close(f);
end;
//
procedure optimize;
begin
d[1,a[1]]:=1;
for i:=1 to n-1 do
 for j:=minn+a[i+1] to maxx-a[i+1] do
  begin
  inc(d[i+1,j-a[i+1]],d[i,j]);
  inc(d[i+1,j+a[i+1]],d[i,j]);
  end;
end;
//
procedure output;
begin
assign(f,'EXP.OUT');
rewrite(f);
write(f,d[n,k]);
close(f);
end;
//
begin
input;
optimize;
output;
end.

uses crt;
var tong,n,k,i:longint;  a,b:array[1..10000000]of longint; d:text;
procedure pt;
   var i,kq:longint;
   begin
      kq:=a[1];
      for i:=1 to n do if b[i]=0 then inc(KQ,a[i+1]) else dec(KQ,A[I+1]);
      if kq=k then begin inc(tong); end;
   end;
function dequy(a:longint):longint;
   var i,j:longint;
   begin
      for i:=0 to 1 do
         begin
            b[a]:=i;
            if a<>n then
            dequy(a+1) else begin pt;  dequy:=1; end;
         end;
   end;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      readln(d,n,k);
      for i:=1 to n do read(d,a[i]);
   close(d);  dec(n);
   dequy(1);
   assign(d,'output.pas');rewrite(d);
      writeln(d,tong);
   close(d);
end.