1643: [Usaco2007 Oct]Bessie's Secret Pasture 贝茜的秘密草坪

1643: [Usaco2007 Oct]Bessie's Secret Pasture 贝茜的秘密草坪

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 268  Solved: 223
[Submit][Status]

Description

农夫约翰已经从他的牧场中取得了数不清块数的正方形草皮，草皮的边长总是整数（有时农夫约翰割草皮的刀法不合适，甚至切出了边长为0的正方形草皮），他已经把草皮放在了一个奶牛贝茜已经知道的地方。 贝茜总是希望把美味的草皮放到她的秘密庄园里，她决定从这些草皮中取出恰好4块搬到她的秘密庄园中，然后把它们分成1×1的小块，组成一个面积为N(1<=N<=10,000)个单位面积的部分。 贝茜对选出这样四块草皮的方法数很感兴趣，如果她得到了一个4个单位面积的部分，那么她可以有5中不同的方法选4块草皮：(1,1,1,1),(2,0,0,0),(0,2,0,0),(0,0,0,2).顺序是有效的：(4,3,2,1)和(1,2,3,4)是不同的方法。

Input

第一行：一个单独的整数N。

Output

单独的一行包含一个整数，表示贝茜选四块草皮的方案数。

Sample Input

4

Sample Output

5

HINT

 

Source

Silver

 题解：呵呵呵呵，一道水水的DP（phile：这次没逗比？ HansBug：么么哒）。。。不多说啥了，转移方程很简单，代码也很清楚。。。

 

var
   i,j,k,l,m,n:longint;
   a:array[0..4,0..20000] of longint;
begin
     readln(n);
     fillchar(a,sizeof(a),0);
     for i:=0 to trunc(sqrt(n)) do
         a[1,i*i]:=1;
     for i:=2 to 4 do
         for j:=0 to n do
             for k:=0 to trunc(sqrt(j)) do
                 a[i,j]:=a[i,j]+a[i-1,j-k*k];
     writeln(a[4,n]);

end.