SSL P1333 地鼠的困境

题目大意：

地鼠家族面临着一个新的威胁——猎食者。
地鼠家族一共有N个地鼠和M个鼠洞，每个都位于不同的(x, y)坐标中。假如有地鼠在发觉危险以后s秒内都没有回到鼠洞里的话，就可能成为老鹰的食物。当然了，一个鼠洞只能拯救一只地鼠的命运，所有地鼠都以相等的速度v移动。地鼠家族需要设计一种策略，使得老鹰来时，易受攻击的地鼠数量最少。

测试数据T<=50
n, m <= 100

题解：

这题就是一个裸的匈牙利，不过就是它的边判断加入
因为s秒后老鹰就要抓地鼠了，所以0~s*v是地鼠所能移动的范围。
所以我们暴力枚举出≤s*v的老鼠到地洞的边
然后跑匈牙利即可

代码：

const     maxn=100;var     map:Array [0..maxn+1,0..maxn+1] of boolean;     cover:array [0..maxn+1] of boolean;     link:array [0..maxn+1] of longint;     x,y:array [0..maxn+1] of real;     ans,i,j,t,n,m:longint;     s,v,p,q:real;function find(x:longint):boolean;var     q,i:longint;begin     q:=0;     for i:=1 to n do        if map[x,i] and not(cover[i]) then        begin             q:=link[i];             link[i]:=x;             cover[i]:=true;             if (q=0) or find(q) then exit(true);             link[i]:=q;        end;     exit(false);end;begin     readln(t);     while t>=1 do     begin           readln(n,m,s,v);           fillchar(map,sizeof(map),false);           s:=s*v;           for i:=1 to n do             readln(x[i],y[i]);           for i:=1 to m do             begin                  readln(p,q);                  for j:=1 to n do                    begin                       v:=sqrt(sqr(p-x[j])+sqr(q-y[j]));                       if v<=s then map[j,i]:=true;                    end;             end;           fillchar(link,sizeof(link),0);           for i:=1 to n do           begin               fillchar(cover,sizeof(cover),false);               find(i);           end;           ans:=0;           for i:=1 to n do             if link[i]>0 then inc(ans);           writeln(n-ans);           dec(t);     end;end.