Program p1;
var a:array[1..1026] of longint;
    f,g:text;
    n,m,i,j,k,l,s,h,r,w,o:longint;
Begin
     assign(f,'oite.in');
     assign(g,'oite.out');
     reset(f);
     rewrite(g);
     readln(f,n,m);
     for i:=1 to n do read(f,a[i]);
     for i:=1 to n do begin
                      s:=a[i];
                      for j:=i+1 to n do begin
                                         h:=s+a[j];
                                         for k:=j+1 to n do begin
                                                            w:=h+a[k];
                                                            for l:=k+1 to n do begin
                                                                               o:=w+a[l];
                                                                               if o=m then inc(r);
                                                                               end;
                                                                               end;
                                                                               end;
                                                                               end;
     writeln(g,r);
     close(g);
end.