bzoj 1270 DP

w[i,j]代表高度j,第i颗树的时候的最大值

那么w[i,j]:=max(w[i,j+1],w[k,j+heigh])+sum[i,j]；

但是这样枚举是n^3的，我们发现转移的第二个选择w[k,j+heigh]与当前

第I颗树没有关系，所以记录一个高度为H的时候时的最大值直接O(1)转移就行了

我也不知道咋回事儿，pascal一直RE，一年前能A的代码现在还是RE，然后向管理员

联系了下，他们说数据没有问题，还把数据发过来了，一共5个点，最后一个点的in竟然

30MB。。。，挂接都挂不了。。。

/**************************************************************

    Problem: 1270

    User: BLADEVIL

    Language: Pascal

    Result: Runtime_Error

****************************************************************/

 

//By  BLADEVIL

var

    n, h, d                     :longint;

    tree                        :array[0..2010,0..2010] of longint;

    w                           :array[0..4010,0..4010] of longint;

    p                           :array[0..10010] of longint;

    i, j                        :longint;

    k                           :longint;

    ans                         :longint;

     

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

begin

    if a>b then max:=a else max:=b;

end;

     

begin

    readln(n,h,d);

    for i:=1 to n do

    begin

        read(tree[i,0]);

        for j:=1 to tree[i,0] do

        begin

            read(k);

            inc(tree[i,k]);

        end;

    end;

    for j:=h downto 1 do

        for i:=1 to n do

        begin

            w[i,j]:=w[i,j+1]+tree[i,j];

            if j+d<=h then w[i,j]:=max(w[i,j],p[j+d]+tree[i,j]);

            p[j]:=max(p[j],w[i,j]); 

        end;

    ans:=-maxlongint;

    for i:=1 to n do ans:=max(ans,w[i,1]);

    writeln(ans);

end.