bzoj 1433: [ZJOI2009]假期的宿舍 最大流

貌似弃坑了的样子...QAQ...其实并没有啊...

一到暑假就颓废了QAQ...懒得写博客...所以还是来补一补吧...

点我看题

题目就不贴了，直接bzoj看吧...

题目大意：  一个学校里有n个人, 有 几个是学生，剩下的是拜访的，这些学生中，有几个要回家，有几个不回家要在学校过夜，然后拜访的也要在学校过夜。可是每一个人只睡他认识的人......的床。问是否有一个方案使得这些不回家的学生和拜访都能睡到床。

思路：难得的最大流裸题吧...毕竟很少有自己能一眼的了...很显然可以这样做：

对于每一个人，建一个点x，同时建多一个点xx，表示他们对应的床。当然拜访学生是没有床的，但是我为了方便建了。

 源点和每一个人的点x连一条边，如果这个人是不回家的学生或者是拜访的人，辣么流量为 1 表示这是需要床的人 否则为 0 表示这是不需要床的人...这个流量为0的边要建，不然貌似会在分层的时候炸...QAQ...

然后汇点和每一个人的点xx连一条边，如果这个人是学生，辣么流量为 1 表示有床，否则为0 表示没有床，一样，流量为0的边要建。

然后如果 人 i  认识 人 j ...辣么 人 i 的就可以睡人 j .......的床（不要问我为什么要把人和床分开一点...手动滑稽）。所以就 人 i 的 点x 和人 j 的点xx 连一条边 流量 1

 因为这个所以 每个人的点 x 要和 xx 连一条流量1的边

某些坑点？（也许并不是，只是我傻了没看到，所以wa了一次）

提一下吧：

这个随机的数有可能是1或0所以还是不要偷懒乖乖特判是否学生

然后就给代码吧：

type
  node=record
      x,y:longint;
      flow:longint;
      next:longint;
  end;
var first,dis,a:array[0..150]of longint;
    q:array[0..100000]of longint;
    n,tot,p,t:longint;
    i,j:longint;
    e:array[0..100000]of node;
    ans,sum:longint;
    x,y,z:longint;
function bfs(s,t:longint):boolean;
var head,tail:longint;
    i,now,y:longint;
begin
  head:=1;
  tail:=1;
  for i:=0 to p do
  dis[i]:=-1;
  q[1]:=s;
  dis[s]:=0;
  while head<=tail do
  begin
    now:=q[head];
    i:=first[now];
    while i<>-1 do
    begin
      y:=e[i].y;
      if (dis[y]<0)and(e[i].flow>0) then
      begin
        dis[y]:=dis[now]+1;
        inc(tail);
        q[tail]:=y;
      end;
      i:=e[i].next;
    end;
    inc(head);
  end;
  if dis[t]=-1 then exit(false) else exit(true);
end;
procedure adde(x,y,f:longint);
begin
  e[tot].next:=first[x];
  e[tot].x:=x;
  e[tot].y:=y;
  e[tot].flow:=f;
  first[x]:=tot;
  inc(tot);
end;
function dfs(x,mx:longint):longint;
var i,k:longint;
begin
  if x=p then exit(mx);
  i:=first[x];
  while i<>-1 do
  begin
    y:=e[i].y;
    if (e[i].flow>0)and(dis[y]=dis[x]+1) then
    begin
      if e[i].flow>mx then k:=dfs(y,mx) else k:=dfs(y,e[i].flow);
      dec(e[i].flow,k);
      inc(e[i xor 1].flow,k);
      if k>0 then exit(k);
    end;
    i:=e[i].next;
  end;
  exit(0);
end;
begin
  read(t);
  while t>0 do
  begin
    fillchar(e,sizeof(e),0);
    dec(t);
    read(n);
    p:=2*n+1;
    ans:=0;
    sum:=0;
    tot:=0;
    for i:=0 to p do
    first[i]:=-1;
    for i:=1 to n do
    begin
      read(a[i]);
      if a[i]=1 then
      begin
        adde(i+n,p,1);
        adde(p,i+n,0);
      end else
      begin
        adde(i+n,p,0);
        adde(p,i+n,0);
        inc(sum);
      end;
    end;
    for i:=1 to n do
    begin
      read(x);
      if a[i]=0 then
      begin
        adde(0,i,1);
        adde(i,0,0);
      end else
      begin
        if x=0 then
        begin
          adde(0,i,1);
          adde(i,0,0);
          inc(sum);
        end else
        begin
          adde(0,i,0);
          adde(i,0,0);
        end;
      end;
    end;
    for i:=1 to n do
      for j:=1 to n do
      begin
        read(x);
        if (x=1)or(i=j) then
        begin
          adde(i,n+j,1);
          adde(n+j,i,0);
        end;
      end;
    while bfs(0,p) do
    begin
      repeat
        z:=dfs(0,1 << 25);
        inc(ans,z);
      until z>0;
    end;
    if ans>=sum then writeln('^_^') else writeln('T_T');
  end;
end.

pascal代码应该很好看的吧...要c++的没有...>_<