BZOJ1655 [Usaco2006 Jan] Dollar Dayz 奶牛商店

简单递推（递推式真不想写了），但是要高精加。

结果没有1A。。。蒟蒻啊。。。

要写高精加，突然想到Pascal的高深之处，既可以定义operator，还可以写class，而且自带unit AVLtree！！！

（↑其实就是凑字数的）

/**************************************************************
    Problem: 1655
    User: rausen
    Language: Pascal
    Result: Accepted
    Time:56 ms
    Memory:708 kb
****************************************************************/
 
uses math;
 
type
  num = array[0..50] of longint;
 
var
  f : array[0..1500] of num;
  n, k, i, j : longint;
 
operator + (const a : num; const b : num) c : num;
var
  i : longint;
 
begin
  fillchar(c, sizeof(c), 0);
  c[0] := max(a[0], b[0]) + 1;
  for i := 1 to c[0] do begin
    c[i] := c[i] + a[i] + b[i];
    c[i + 1] := c[i] div 10;
    c[i] := c[i] mod 10;
  end;
  while c[c[0]] = 0 do dec(c[0]);
end;
 
begin
  readln(n, k);
  f[0, 0] := 1;
  f[0, 1] := 1;
  for i := 1 to k do
    for j := i to n do
      f[j] := f[j] + f[j - i];
  for i := f[j, 0] downto 1 do
    write(f[j, i]);
  writeln;
end.

（最近只会做沙茶题，请见谅>.<）