【距离GDOI：141天】 滚入数位DP的坑

作为博客园的第一篇...我都不知道要写什么了 ...

其实今天很没状态，就当吐槽吧...

嗯，被黄神带去写treap+可持久化线段树，然后在可持久化的删除上面跪了两天，真的是一跪不起。我已经连续多久没有AC一道题了？有时候真心会觉得，学一些东西，到达差不多就应该先放手，一次性钻太深对自己没好处。其实之前到可持久化结束就可以结束了，还顺手搞掉配对堆和替罪羊，已经很不错了。这时候再来搞什么可持久化的加深...额有点感觉无效率。加上自己这两天社团有事，状态直接变成渣了...自己的错，都是蒟蒻的借口罢了。说好每天都要有一点小进步，哪去了...

数位DP

数位DP的概念在这个东西里面讲的很清楚

http://wenku.baidu.com/link?url=W07aYBvgLsyu3GYWWcBU0qrF88jn-hXXFzzjmLzEK7D2ZdEtl3lkAT9SlWNTJX_Q1FkH_BWIcDUM1vjgizIEliiJ1O6CK576ORA3o5Y8e6G

第一道题写的是HDU 2089，其实里面也讲了题解...然后，主要是别忘了在计算的时候，x本身没有被考虑，所以考虑区间的时候应该要 solve(m+1)-solve(n) ...

var
 f:array[..,..] of longint;
 d:array[..] of longint;
 n,m:longint;

function calc(x:longint):longint;
var sum:longint;
begin
 sum:=;
 fillchar(d,sizeof(d),);
 while x> do
  begin
   inc(sum);
   d[sum]:= x mod ;
   x:= x div ;
  end;
 calc:=sum;
end;

function solve(x:longint):longint;
var ans,len,i,j,k:longint;
begin
 ans:=;
 len:=calc(x);
 for i:= len downto  do
  begin
   for j:=  to d[i]- do
    if (j<>) and ((j<>) or (d[i+]<>)) then ans:=ans+f[i,j];
   if (d[i]=) or ((d[i]=) and (d[i+]=)) then break;
  end;
 solve:=ans;
end;

procedure init;
var i,j,k:longint;
begin
 f[,]:=;
 for i:=  to  do
  for j:=  to  do
   for k:=  to  do
    if (j<>) and ((j<>) or (k<>)) then f[i,j]:=f[i-,k]+f[i,j];
end;

Begin
 init;
 readln(n,m);
 while (n<>) or (m<>) do
  begin
   writeln(solve(m+)-solve(n));
   readln(n,m);
  end;
End.