二叉树 (Standard IO)

题意/Description:

       在一个无穷的满二叉树中，有以下几个特点：
　　(1)每个节点都有两个儿子——左儿子和右儿子；
　　(2)如果一个节点的编号为X，则它的左儿子编号为2X，右儿子为2X+1；
　　(3)根节点编号为1。
　　现在从根结点开始走，每一步有三种选择：走到左儿子、走到右儿子和停在原地。
　　用字母“L”表示走到左儿子，“R”表示走到右儿子，“P”表示停在原地，用这三个字母组成的字符串表示一个明确的行走路线。
一个明确的行走路线的价值为最终到达节点的编号，例如LR的价值为5，而RPP的价值为3。
　　我们用字符“L”、“R”、“P”和“*”组成的字符串表示一组行走路线，其中“*”可以是“L”、“R”、“P”中的任意一种，所有跟这个行走路线匹配的字符串都认为是可行的。
　　例如L*R包含LLR、LRR和LPR。而**包含LL、LR、LP、RL、RR、RP、PL、PR和PP这9种路线。
　　一组行走路线的价值等于所有匹配该模式的路线的价值之和。请你编程计算给定路线的价值。

 

读入/Input：

       输入一个字符串表示一组行走路线，里面只含有“L”、“R”、“P”和“*”四种字符，长度不会超过10000。

 

输出/Output：

       输出该路线的价值。

 

题解/solution：

        读题后，知道L是乘2，R是乘2加1，P是乘1。推出*是乘5加1。因为一个神奇的东西，后面的那个1每遇见*就要乘3。打个压位高精度，就过了。

 

代码/Code：

type
  arr=array [0..5001] of int64;
var
  s:ansistring;
  l,mo:longint;
  f,c:arr;
function max(o,p:longint):longint;
begin
  if o>p then exit(o);
  exit(p);
end;

procedure mul(var a:arr; x:longint);
var
  i:longint;
begin
  for i:=a[0] downto 1 do
    begin
      a[i]:=a[i]*x;
      a[i+1]:=a[i+1]+a[i] div mo;
      a[i]:=a[i] mod mo;
    end;
  if a[a[0]+1]>0 then a[0]:=a[0]+1;
end;

procedure add;
var
  i:longint;
begin
  for i:=1 to max(f[0],c[0]) do
    begin
      f[i]:=f[i]+c[i];
      f[i+1]:=f[i+1]+f[i] div mo;
      f[i]:=f[i] mod mo;
    end;
  if f[f[0]+1]>0 then f[0]:=f[0]+1;
end;

procedure main;
var
  i,ll:longint;
  ss:string;
begin
  l:=length(s);
  c[0]:=1; c[1]:=1; f[0]:=1; f[1]:=1;
  for i:=1 to l do
    case s[i] of
      'L':mul(f,2);
      'R':begin mul(f,2); add; end;
      '*':begin mul(f,5); add; mul(c,3); end;
    end;
  write(f[f[0]]);
  for i:=f[0]-1 downto 1 do
    begin
      str(f[i],ss);
      ll:=length(ss);
      while ll<8 do
        begin
          write('0');
          ll:=ll+1;
        end;
      write(ss);
    end;
end;

begin
  readln(s);
  mo:=100000000;
  main;
end.