69 条题解

  • 0
    @ 2009-11-07 15:33:53

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    一次AC 感觉不错

  • 0
    @ 2009-10-19 22:03:00

    这题真的难度3?

    第一次做网络流,一次AC

    这题真的很朴素

  • 0
    @ 2009-10-06 16:16:06

    做出的最漂亮的SAP

  • 0
    @ 2009-09-12 13:08:50

    感谢OImaster提供好题~

  • 0
    @ 2009-08-19 18:11:02

    我不活啦。。。调了一个下午发现是边数和点数读反了!

    呜呜呜。。。。

  • 0
    @ 2009-08-14 08:31:23

    Accepted 有效得分:100 有效耗时:0ms

    点2,3是cheat过的……

  • 0
    @ 2009-08-13 10:25:20

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    sap+gap

    一次ac

  • 0
    @ 2009-08-07 23:03:25

    朴素的SAP。

  • 0
    @ 2009-07-29 18:08:06

    为什么最小割等于最大流

  • 0
    @ 2009-07-27 15:39:55

    EK...也能秒杀。。

    WA了N次。。

  • 0
    @ 2009-07-17 16:47:43

    裸体网络流最小割

    SAP+GAP

    0MS闪电AC

    (似乎EK也是)

  • 0
    @ 2009-07-13 22:47:01

    第8个点与第十个点为什么TLE

  • 0
    @ 2009-07-11 12:56:24

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    样例过了就直接交了,套模型的题目以后还是别放上来算了

  • 0
    @ 2009-07-11 16:04:28

    最小割

    最小割就是最大流

    第一次网络流,流对了....

    70分的注意,无向边

  • 0
    @ 2009-07-11 09:30:15

    边表没开够,结果最后一个点T了……

    不理解

    vj能不能不要总给个216,给个201 215等等的也好啊,让我们知道哪里错了。第几个点错了不重要,重要的是什么错了。

  • 0
    @ 2009-06-28 23:45:40

    我的第一道网络流,很朴实,很和谐

  • 0
    @ 2009-06-23 22:47:00

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:运行超时...

    ├ 测试数据 05:运行超时...

    ├ 测试数据 06:运行超时...

    ├ 测试数据 07:运行超时...

    ├ 测试数据 08:运行超时...

    ├ 测试数据 09:运行超时...

    ├ 测试数据 10:运行超时...

    ---|---|---|---|---|---|---|---|-

    Unaccepted 有效得分:30 有效耗时:0ms

    这是什么!这是什么!啊啊啊!!!

  • 0
    @ 2009-06-23 21:58:59

    大家注意哦:因为是无向图,所以建边时要建双向的,按照无向图的方法建边,否则第5、8、10个点会WA

    如此水题交了三次,RP……

    点击这里看解题报告

  • 0
    @ 2009-06-18 17:59:56

    得70分是什么问题

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案错误... ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案错误... ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案错误... ├ 标准行输出

     ├ 错误行输出

    ---|---|---|---|---|---|---|---|-

    Unaccepted 有效得分:70 有效耗时:0ms

    program p1524;

    const maxw=10000000;

    type link=^node;

    node=record

    data:integer;

    next:link;

    end;

    var c:array[0..200,0..200]of longint;

    q:array[0..500]of link;

    e,d:array[0..200]of longint;

    i,j,k,n,m,maxd,ee,a,b,w:longint;

    p:link;

    function max(a,b:longint):longint;

    begin

    if a>b then exit(a) else exit(b);

    end;

    function min(a,b:longint):longint;

    begin

    if a>b then exit(b) else exit(a);

    end;

    procedure add(k,dk:longint);

    var p:link;

    i:integer;

    begin

    if (k=1)or(k=n+1) then exit;

    maxd:=max(maxd,dk);

    new(p);

    p^.data:=k;

    p^.next:=q[dk];

    q[dk]:=p;

    end;

    procedure push(k:integer);

    var i,x:longint;

    begin

    repeat

    for i:=1 to n+1 do

    if (c[k,i]>0)and(d[k]=d[i]+1)

    then begin

    if e[i]=0 then add(i,d[i]);

    x:=min(e[k],c[k,i]);

    inc(e[i],x);

    dec(e[k],x);

    dec(c[k,i],x);

    inc(c,x);

    end;

    if e[k]>0

    then begin

    d[k]:=maxw;

    for i:=1 to n+1 do

    if (c[k,i]>0)and(d[k]>d[i]+1) then d[k]:=d[i]+1;

    end;

    until e[k]=0;

    end;

    begin

    readln(n,ee);

    fillchar(c,sizeof(c),0);

    for i:=1 to ee do

    begin

    readln(a,b,w);

    inc(c[a,b],w);

    end;

    readln(m);

    for i:=1 to m do

    begin

    read(k);

    c[k,n+1]:=maxw;

    end;

    d[1]:=1;

    for i:=1 to n+1 do q[i]:=nil;

    for i:=2 to n+1 do e[1]:=e[1]+c[1,i];

    push(1);

    d[1]:=n+1;

    while maxd>=0 do

    begin

    while q[maxd]nil do

    begin

    p:=q[maxd];

    q[maxd]:=q[maxd]^.next;

    push(p^.data);

    dispose(p);

    end;

    while (maxd>=0)and(q[maxd]=nil) do dec(maxd);

    end;

    writeln(e[n+1]);

    end.

    那位大牛帮我改一下

  • 0
    @ 2009-06-11 17:47:56

    MS可以用当前弧优化的吧

    当时程序没调对。用SAP+GAP过的。

信息

ID
1524
难度
5
分类
图结构 | 网络流 点击显示
标签
(无)
递交数
1323
已通过
470
通过率
36%
被复制
3
上传者