$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[$n];
	++$c if not
		$x[$n-1]*($n-$i+1)<$w+$l/2*($n-$i+1) && $w+$l/2*($n-$i+1)<($x[$n-1]+$l)*($n-$i+1)
	&&	$x[$n-0]*($n-$i+1)<$w+$l/2*($n-$i+1) && $w+$l/2*($n-$i+1)<($x[$n-0]+$l)*($n-$i+1);
}
print$c