pku1946 Cow Cycling

有n只奶牛进行自行车环跑，如果奶牛一分钟要跑x圈，则领跑者消耗x*x体力，后面跟跑的消耗x体力。现在给出N头奶牛的数目N，每头奶牛原先所具有的能量E，需要环跑的圈数D。只要有一只奶牛先达到D圈，就算完成环跑，求奶牛能否完成环跑，如果不能，输出0。否则，输出环跑的最短时间。

最优方案显然是n头牛轮流领跑，最后第n头牛冲线。

f[i,j,k]表示当前第i头牛领跑，已经领跑j圈，它已经消耗了k点体力的最短时间。

写一个正推方程f[i,j+x,k+x*x]=min{f[i,j,k]+1}//领跑牛继续跑

                    f[i+1,j,j]=min{f[i,j,k]}//领跑牛换人

program pku1946(input,output);
const
   MAXW    = 10000000;
var
   f      : array[0..25,0..110,0..110] of longint;
   n,e,d  : longint;
   answer : longint;
procedure init;
begin
   readln(n,e,d);
   fillchar(f,sizeof(f),63);
end; { init }
function min(aa,bb :longint ):longint;
begin
   if aa<bb then
      exit(aa);
   exit(bb);
end; { min }
procedure main;
var
   i,j,k,l : longint;
begin
   f[1,0,0]:=0;
   for i:=1 to n do
      for j:=0 to d do
     for k:=0 to e do
        if f[i,j,k]<19950714 then
           for l:=1 to e do
           begin
          if (j+l<=d)and(k+l*l<=e) then
             f[i,j+l,k+l*l]:=min(f[i,j,k]+1,f[i,j+l,k+l*l]);
          f[i+1,j,j]:=min(f[i+1,j,j],f[i,j,k]);
           end;
   answer:=MAXW;
   for i:=0 to e do
      if f[n,d,i]<answer then
     answer:=f[n,d,i];
end; { main }
procedure print;
begin
   writeln(answer);
end; { print }
begin
   init;
   main;
   print;
end.