1333-SSL-地鼠的困境

地鼠的困境

Time Limit:1000MS  Memory Limit:65536K
Total Submit:251 Accepted:67

Description

　　地鼠家族面臨着一個新的威脅——獵食者。
　　地鼠家族一共有N個地鼠和M個鼠洞，每個都位於不同的(x, y)座標中。假如有地鼠在發覺危險以後s秒內都沒有回到鼠洞裏的話，就可能成爲老鷹的食物。當然了，一個鼠洞只能拯救一隻地鼠的命運，所有地鼠都以相等的速度v移動。地鼠家族需要設計一種策略，使得老鷹來時，易受攻擊的地鼠數量最少。

Input

本題有多組數據。第1行爲測試數據組數T(T<=50)。
對於每組數據，第一行4個整數n, m, s和v(n, m <= 100)。以後n行爲地鼠的座標，以後m行爲鼠洞的座標。距離的單位是m，時間的單位是s，速度的單位是m/s。

Output

對於每組數據輸出一行，爲易受攻擊的地鼠的數量。

Sample Input

1
2 2 5 10
1.0 1.0
2.0 2.0
100.0 100.0
20.0 20.0

Sample Output

1

Source

elba

思路：這道題剛開始是在不明白第一行的1（T表示）是有什麼作用，後來看了Gdalao的博客才知道是怎麼一回事，

其實是很水的，因爲鼠鼠可以斜着跑，兩點之間直線最短，就用勾股定理求最短的路，匈牙利一套就OJBK了。

代碼：

const
 maxn=101;
var
 link:array[0..maxn]of longint;
 cover:array[0..maxn]of boolean;
 map:array[0..maxn,0..maxn]of boolean;
 n,m,v,s,T,i:longint;
function find(x,y:longint):boolean;
var
 q,i:longint;
begin
 find:=true;
 for i:=1 to y do
   if (not cover[i])and(map[x,i])then
    begin
     cover[i]:=true;
     q:=link[i];
     link[i]:=x;
      if (q=0)or(find(q,y))then exit;
     link[i]:=q;
    end;
 find:=false;
end;
procedure running(q,p,c:longint);
var
 x,y:array[0..maxn]of real;
 rs,a,b,xx,yy:real;
 i,j,ans:longint;
begin
 for i:=1 to q do
   read(x[i],y[i]);
 for i:=1 to p do
  begin
   read(xx,yy);
    for j:=1 to q do
     begin
      a:=x[j]-xx;
      b:=y[j]-yy;
      rs:=sqrt(sqr(a)+sqr(b));
      if rs<=c then map[j,i]:=true;
     end;
  end;
 for j:=1 to q do
  begin
   fillchar(cover,sizeof(cover),false);
   find(j,q);
  end;
  ans:=0;
  for j:=1 to q do
   if link[j]>0 then inc(ans);
   writeln(q-ans);
end;
begin
 read(T);
 for i:=1 to T do
 begin
  fillchar(map,sizeof(map),false);
  fillchar(link,sizeof(link),0);
  read(n,m,s,v);
  running(n,m,s*v);
 end;
end.