Trung tâm Kite EngLish tổ chức đêm vũ hội. M chàng trai và N cô gái được mời đến vũ hội tối nay. Mỗi chàng trai muốn một cô gái thấp hơn anh ta. Một cô gái có thể nhảy chỉ với một chàng trai và ngược lại. Với chiều cao của tất cả các chàng trai và cô gái. Cho biết liệu tất cả các chàng trai có thể có được một cô gái để khiêu vũ hay không. Dữ liệu nhập: - Dòng đầu tiên chứa M và N. (1 <= N , M <= 100000) - Dòng thứ hai chứa M số nguyên mỗi số biểu thị chiều cao của các chàng trai. - Thứ ba chứa N số nguyên mỗi số biểu thị chiều cao của cô gái. Đầu ra: - in YES nếu mỗi chàng trai có thể có một cô gái. Còn không in NO.

*Code Pascal:

var n,m,d:int64;
i:longint;
a,b:array[0..10000000]of int64;
procedure qsort(l,r:int64);
Var i,j,x,w:int64;
Begin
x:=A[(l+r) div 2];
  i:=l;j:=r;
  Repeat
    While(a[i]<x) do i:=i+1;
     While (x<a[j]) do j:=j-1;
      If i<=j then
        Begin
          w:=a[i];a[i]:=a[j];a[j]:=w;
          i:=i+1;j:=j-1;
        End;
 until i>j;
 If l<j then qsort(l,j);
 If i<r then qsort(i,r);
End;
procedure qsort1(l,r:int64);
Var i,j,x,w:int64;
Begin
x:=b[(l+r) div 2];
  i:=l;j:=r;
  Repeat
    While(b[i]<x) do i:=i+1;
     While (x<b[j]) do j:=j-1;
      If i<=j then
        Begin
          w:=b[i];b[i]:=b[j];b[j]:=w;
          i:=i+1;j:=j-1;
        End;
 until i>j;
 If l<j then qsort1(l,j);
 If i<r then qsort1(i,r);
End;
begin
  read(m,n);
  for i:=1 to m do read(a[i]);
  for i:=1 to n do read(b[i]);
  qsort(1,m);
  qsort1(1,n);
  for i:=1 to m do 
  if a[i]<=b[i] then  begin d:=0; break;
  end
  else d:=1;
  if d=1 then write('YES')
  else write('NO');
 end.