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.

你可能感兴趣的:(pascal,勾股/叉积/向量,匈牙利算法,匹配)