$n=<>;
$l=<>;
for$i(2..$n){
	$x[$i]=<>;
	exit!print-1 if abs($x[$i]-$x[$i-1])>=$l;
}
$c=0;
for$i(reverse 2..$n){
	$w+=$x[$i];
	++$c unless
		($x[$i-1]-$l/2)*($n-$i+1)<$w && $w<($x[$i-1]+$l/2)*($n-$i+1)
	&&	($x[$i-0]-$l/2)*($n-$i+1)<$w && $w<($x[$i-0]+$l/2)*($n-$i+1);
}
print$c