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.