nocows.pas

来自「Magio牛的usaco源代码」· PAS 代码 · 共 42 行

{
ID:maigoak1
PROG:nocows
}

program nocows;
const
  maxn=99;
  modulo=9901;
var
  fin,fout:text;
  count:array[boolean,0..maxn]of word;
  n,m,i,j,k:integer;
begin
  assign(fin,'nocows.in');
  reset(fin);
  read(fin,n,m);
  close(fin);

  if odd(n) then begin
    n:=n shr 1;
    fillchar(count,sizeof(count),0);
    count[true,0]:=1;
    for i:=2 to m do begin
      count[odd(i),0]:=1;
      for j:=1 to n do begin
        count[odd(i),j]:=0;
        for k:=0 to j-1 do
          count[odd(i),j]:=(count[odd(i),j]+count[not odd(i),k]*count[not odd(i),j-1-k]) mod modulo;
      end;
    end;
    k:=(count[odd(m),n]+modulo-count[not odd(m),n]) mod modulo;
  end
  else
    k:=0;

  assign(fout,'nocows.out');
  rewrite(fout);
  writeln(fout,k);
  close(fout);
end.