ll n,k,a,z,d[20001];
{
	d[10000]=1;
	rd(n,k);
	rep(n){
		rd(a);
		a-=k;
		if(a>0){
			rep(i,20001-a){
				d[i]+=d[i+a];
			}
		}
		if(a<0){
			rrep(i,20001+a){
				d[i-a]+=d[i];
			}
		}
	}
	z+=d[0..10000];
	wt(z-1);
}