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