> 不可能有错了呀！大虾们看一下！我是每个房间枚举双向路径的，用迭代做的，这是代码:
> type arr1=array[1..100,1..2]of longint;
>      arr=array[1..500]of record
>                            w:longint;
>                            st:arr1;
>                          end;
> var a,b:arr;
>     c:array[1..500]of longint;
>     g,m,n,i,j,l,t,s:longint;
> begin
>   readln(n,m);
>   for i:=1 to m do
>     begin
>       read(a[i].w);
>       a[i].st[1,1]:=i;
>     end;
>   readln;
>   for i:=2 to n do
>     begin
>       for j:=1 to m do
>         read(c[j]);
>       readln;
>       for j:=1 to m do
>         begin
>           s:=maxlongint;
>           t:=0;
>           g:=j;
>           for l:=j downto 1 do
>             begin
>               t:=t+c[l];
>               if t+a[l].w<s
>                 then begin
>                        s:=t+a[l].w;
>                        g:=l;
>                      end;
>             end;
>           t:=0;
>           for l:=j to m do
>             begin
>               t:=t+c[l];
>               if t+a[l].w<s
>                 then begin
>                        s:=t+a[l].w;
>                        g:=l;
>                      end;
>             end;
>           b[j].w:=s;
>           b[j].st:=a[j].st;
>           b[j].st[i,1]:=g;
>           b[j].st[i,2]:=j;
>           b[j].st[1,1]:=a[g].st[1,1];
>         end;
>       a:=b;
>     end;
>   g:=1;
>   for i:=2 to m do
>     if a[i].w<a[g].w
>       then g:=i;
>   writeln(a[g].st[1,1]);
>   for i:=2 to n do
>     if a[g].st[i,1]<a[g].st[i,2]
>       then for j:=a[g].st[i,1] to a[g].st[i,2] do
>              writeln(j)
>       else for j:=a[g].st[i,1] downto a[g].st[i,2] do
>              writeln(j);
> end.
> 帮我找找错吧！我测了一些特殊数据，都没问题的。也可以给点数据看看！谢谢谢谢！

• Re:这题是动归，枚举算你做对，也会超时，自己可以算一下复杂度 (28) ben32 2005-05-12 16:01:24