($n,$k)=glob<>;
@d=(0,<>=~/\d+/g);
for$i(1..$n){
	if($d[$i]){
		while($d[$i]){
			($d[$i],$i)=(0,$d[$i]);
			++$c;
		}
		--$c;
	}
}
print $k>=$c && ($k^$c^1)&1 ? YES : NO