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=13;
var T:longint;
    a:array[0..maxn] of longint;
    f:array[0..maxn,0..maxn,0..maxn,-9..9,0..9,0..1,0..1] 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]>0 then exit(f[now,ml,l,d,pre,st,lim]);
    if now=0 then exit(ml);
    if lim=1 then mx:=a[now] else mx:=9;
    sum:=0;
    for i:=0 to mx do
        if st=1 then
            if i=0 then
                sum:=sum+dfs(now-1,0,0,i-pre,i,1,lim and ord(i=mx))
            else
                sum:=sum+dfs(now-1,max(ml,l+1),l+1,i-pre,i,0,lim and ord(i=mx))
        else
            if i-pre=d then
                sum:=sum+dfs(now-1,max(ml,l+1),l+1,i-pre,i,0,lim and ord(i=mx))
            else
                sum:=sum+dfs(now-1,max(ml,2),2,i-pre,i,0,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),0);
    len:=0;
    while x>0 do
    begin
        inc(len);
        a[len]:=x mod 10;
        x:=x div 10;
    end;
    exit(dfs(len,0,0,0,0,1,1));
end;
procedure main;
var l,r:int64;
begin
    readln(l,r);
    writeln(calc(r)-calc(l-1));
end;
begin
    readln(T);
    while T>0 do begin main; dec(T); end;

end.