2464 游戏

题目

小G正在玩一款游戏，游戏地图上有N个点（1到N编号），这些点之间有M条无向边（没有重边）。一次系统刷新会在某个时刻在某点刷新出一定数量的怪物，系统刷新出来的怪物只会存在1秒，下一秒就会消失。如果那个时刻小G正好在那个点，那么小G可以秒杀（秒杀所用时间忽略不计，下同）这个点上的所有怪物。
另外，小G还有B次放大招的机会，每次放大招可以秒杀当前点及与其直接相邻的点上的所有怪物。大招有5秒的冷却时间，也就是说每次放大招后要经过5秒才能再次放大招（假设在第1秒时发了大招，那下一次发大招的最早时间是第6秒）。
小G可以从任意点开始。系统时间从第1秒开始。他想要知道T秒内他最多可以杀掉多少只怪物。

题解

DP
f[i,j,c,d]表示第i秒 在j点 大招冷却还有c秒 还能放d次大招 时 最多可以杀掉的怪物数
要从两个方向上去转移，放大招和走到别的点。若c=0&d>0，就把所有相连的点的怪物都加上来；把所有相连的点都看看是不是转移了更划算。每个f[i,j,c,d]+w[i,j]都和答案比

$$时间复杂度O(T*N^2*B*5）$$

代码

var
  f:array[0..55,0..55,0..5,0..5]of longint;
  a,w:array[0..50,0..50]of longint;
  n,m,t,r,b,i,j,c,d,k,l,ans:longint;

function max(a,b:longint):longint;
begin
  if a>b then exit(a) else exit(b);
end;

begin
  readln(n,m,t,r,b);
  for i:=1 to m do
    begin
      readln(j,k,l);
      a[j,k]:=l;a[k,j]:=l;
    end;
  for i:=1 to r do
    begin
      readln(j,k,l);
      w[j,k]:=l;
    end;
  for i:=1 to t do
    for j:=1 to n do
      for c:=0 to 5 do
        for d:=0 to b do
          if (f[i,j,c,d]>=0) then
            begin
              if (c=0)and(d>0) then
                begin
                  l:=f[i,j,c,d];
                  for k:=1 to n do
                    if a[j,k]>0 then
                      l:=l+w[i,k];
                  if l>f[i,j,5,d-1] then f[i,j,5,d-1]:=l;
                end;
              l:=f[i,j,c,d]+w[i,j];
              if l>ans then ans:=l;
              if f[i+1,j,max(c-1,0),d]<l then
                f[i+1,j,max(c-1,0),d]:=l;
              for k:=1 to n do
                if a[j,k]>0 then
                  if f[i+a[j,k],k,max(c-a[j,k],0),d]<l then
                    f[i+a[j,k],k,max(c-a[j,k],0),d]:=l;
            end;
  writeln(ans);
end.