Digit (数位DP）

一个正整数的价值就是把这个数的十进制写出来之后，最长的等差子串的长度。

求出在[l,r]范围内的数字的价值总和。

(l<=r<=10^12)

记f[now,ml,l,d,pre,st,lim] 为当前状态下ans的值

now　　 第now位
ml　　　 所求的的等差数列最长长度
l      　   当前所求等差数列的长度
d          公差为d
st         有无前导0
pre       上一位是多少
lim        是否达到数字上限

直接dfs枚举下一位的数字转移即可

 const maxn=;
 var T:longint;
     a:array[..maxn] of longint;
     f:array[..maxn,..maxn,..maxn,-..,..,..,..] of int64;
 function max(a,b:longint):longint; inline;
 begin
     if a>b then exit(a) else exit(b);
 end;
 function dfs(now,ml,l,d,pre,st,lim:longint):int64;
 var mx,i:longint; sum:int64;
 begin
 //now 第now位
 //ml 最长长度
 //l 当前长度
 //d 公差为d
 //st  有无前导0
 //pre 上一位是多少
 //lim 是否达到上限
     if f[now,ml,l,d,pre,st,lim]> then exit(f[now,ml,l,d,pre,st,lim]);
     if now= then exit(ml);
     if lim= then mx:=a[now] else mx:=;
     sum:=;
     for i:= to mx do
         if st= then
             if i= then
                 sum:=sum+dfs(now-,,,i-pre,i,,lim and ord(i=mx))
             else
                 sum:=sum+dfs(now-,max(ml,l+),l+,i-pre,i,,lim and ord(i=mx))
         else
             if i-pre=d then
                 sum:=sum+dfs(now-,max(ml,l+),l+,i-pre,i,,lim and ord(i=mx))
             else
                 sum:=sum+dfs(now-,max(ml,),,i-pre,i,,lim and ord(i=mx));
     f[now,ml,l,d,pre,st,lim]:=sum;
     exit(sum);
 end;
 function calc(x:int64):int64;
 var len:longint;
 begin
     fillchar(f,sizeof(f),);
     len:=;
     while x> do
     begin
         inc(len);
         a[len]:=x mod ;
         x:=x div ;
     end;
     exit(dfs(len,,,,,,));
 end;
 procedure main;
 var l,r:int64;
 begin
     readln(l,r);
     writeln(calc(r)-calc(l-));
 end;
 begin
     readln(T);
     while T> do begin main; dec(T); end;

 end.