Pascal标程,记忆化搜索

var
  h:array[0..16]of int64;
  i,j,n:longint;
function
  f(x:longint):int64;
  var
    i:longint;
  begin
    if h[x]<>0 then exit(h[x]);
    for i:=0 to x-1 do
      h[x]:=h[x]+f(i)*f(x-1-i);
    exit(h[x]);
  end;
begin
  readln(n);
  h[0]:=1;
  h[1]:=1;
  writeln(f(n));
end.

4 条评论

  • @ 2018-09-30 15:53:26

    666

  • @ 2016-10-25 21:07:53

    呵呵

  • @ 2016-09-13 20:16:24

    膜拜大神。
    666
    记忆化搜索。233

  • @ 2016-09-08 12:39:36

    请问你会公式吗?
    卡特兰数啊!
    多简单啊!
    就一个C(2n,n)/(n+1)

  • 1

信息

ID
1122
难度
1
分类
组合数学 | Catalan数列 点击显示
标签
递交数
3901
已通过
2429
通过率
62%
上传者