($N,$A)=glob<>;@x=(0,glob<>);$_>$X&&($X=$_)for@x,$A;
for$j(0..$N){for$k(0..$N){for$s(0..$N*$X){
	$dp[$j][$k][$s]=
	(
		  $j==0 && $k==0 && $s==0      ? 1
		: $j>=1      &&     $s< $x[$j] ? $dp[$j-1][$k][$s]
		: $j>=1 && $k>=1 && $s>=$x[$j] ? $dp[$j-1][$k][$s] + $dp[$j-1][$k-1][$s-$x[$j]]
		:                                0
	)
}}}
for$k(1..$N){$%+=$dp[$N][$k][$k*$A]}
print$%,$/