int@n,@k,@a[n],@b[n],f;
if(k<n-1){
	sortA(n,a);
	sortA(n,b);
}
unsigned m=time(0)|1,o=1,c=0,d=0,e=0;
rep(i,n){
	c=c*m+a[i];
	d=d*m+b[i];
	e=e+o*b[i];
	o*=m;
}
f=c==d;
if(n==k){
	f|=c==e;
}
if(k==n-1){
	rep(i,n){
		f|=c==d|c==e;
		c=c*m+(1-o)*a[i];
	}
}
wt(f?"Yes":"No");