# 1934: [Shoi2007]Vote 善意的投票

## 1934: [Shoi2007]Vote 善意的投票

Time Limit: 1 Sec  Memory Limit: 64 MB

Submit: 1174  Solved: 723

[Submit][Status]

## Sample Input

3 3 1 0 0 1 2 1 3 3 2

1

## Source

Day2

``` 1 /**************************************************************
2     Problem: 1934
3     User: HansBug
4     Language: Pascal
5     Result: Accepted
6     Time:60 ms
7     Memory:3484 kb
8 ****************************************************************/
9
10 type
11     point=^node;
12     node=record
13                g,w:longint;
14                next,anti:point;
15     end;
16 var
17    i,j,k,l,m,n,ans,s,t:longint;
18    a:array[0..100000] of point;
19    c,d,dv:array[0..100000] of longint;
20 function min(x,y:longint):longint;inline;
21          begin
22               if x<y then min:=x else min:=y;
23          end;
25           var p:point;
26           begin
27                new(p);p^.g:=y;p^.w:=z;p^.next:=a[x];a[x]:=p;
28                new(p);p^.g:=x;p^.w:=0;p^.next:=a[y];a[y]:=p;
29                a[x]^.anti:=a[y];a[y]^.anti:=a[x];
30           end;
31 function dfs(x,flow:longint):longint;inline;
32          var i,j,k,l:longint;p:point;
33          begin
34               if x=t then exit(flow);
35               dfs:=0;p:=a[x];
36               while p<>nil do
37                     begin
38                          if (p^.w>0) and (d[x]=(d[p^.g]+1)) then
39                             begin
40                                  k:=dfs(p^.g,min(flow-dfs,p^.w));
41                                  dec(p^.w,k);
42                                  inc(p^.anti^.w,k);
43                                  inc(dfs,k);
44                                  if dfs=flow then exit;
45                             end;
46                          p:=p^.next;
47                     end;
48               if d[s]=n then exit;
49               dec(dv[d[x]]);
50               if dv[d[x]]=0 then d[s]:=n;
51               inc(d[x]);
52               inc(dv[d[x]]);
53          end;
54 begin
56      for i:=1 to n+2 do a[i]:=nil;
57      for i:=1 to n do
58          begin
61          end;
63      for i:=1 to m do
64          begin
67          end;
68      n:=n+2;
69      ans:=0;
70      fillchar(d,sizeof(d),0);
71      fillchar(dv,sizeof(dv),0);dv[0]:=n;
72      while d[s]<n do inc(ans,dfs(s,maxlongint));
73      writeln(ans);
75 end.```

0 条评论

• ### 1339 / 1163: [Baltic2008]Mafia

1163: [Baltic2008]Mafia Time Limit: 10 Sec  Memory Limit: 162 MB Submit: 96  Sol...

• ### 3038: 上帝造题的七分钟2

3038: 上帝造题的七分钟2 Time Limit: 3 Sec  Memory Limit: 128 MB Submit: 662  Solved: 302...

• ### 1622: [Usaco2008 Open]Word Power 名字的能量

1622: [Usaco2008 Open]Word Power 名字的能量 Time Limit: 5 Sec  Memory Limit: 64 MB Su...

• ### 1339 / 1163: [Baltic2008]Mafia

1163: [Baltic2008]Mafia Time Limit: 10 Sec  Memory Limit: 162 MB Submit: 96  Sol...

• ### 3410: [Usaco2009 Dec]Selfish Grazing 自私的食草者

3410: [Usaco2009 Dec]Selfish Grazing 自私的食草者 Time Limit: 3 Sec  Memory Limit: 128...

• ### 1622: [Usaco2008 Open]Word Power 名字的能量

1622: [Usaco2008 Open]Word Power 名字的能量 Time Limit: 5 Sec  Memory Limit: 64 MB Su...

• ### 3401: [Usaco2009 Mar]Look Up 仰望

3401: [Usaco2009 Mar]Look Up 仰望 Time Limit: 3 Sec  Memory Limit: 128 MB Submit: ...

• ### 算法模板——线段树3（区间覆盖值+区间求和）

实现功能——1：区间覆盖值；2：区间求和 相比直接的区间加，这个要注重顺序，因为操作有顺序之分。所以这里面的tag应该有个pushup操作（本程序中的ext） ...

• ### 算法模板——线段树5（区间开根+区间求和）

实现功能——1：区间开根；2：区间求和（此模板以BZOJ3038为例） 作为一个非常规的线段树操作，其tag也比较特殊呵呵哒 1 var 2 i,j,...

• ### 2243: [SDOI2011]染色

2243: [SDOI2011]染色 Time Limit: 20 Sec  Memory Limit: 512 MB Submit: 3113  Solved...