bzoj1833: [ZJOI2010]count 数字计数

传送门
按照老规矩，我们要将其变为两个(1,l-1),(1,r)的询问。
然后，我们按位枚举，将肯定小于边界的统计进去。
然后这样我们九确定了接下来枚举数字的第1位数字
依次推下去九可以了。

uses math;var  c,d,e,f:array [0..20] of int64;  a,b,p,i:int64;  j,k,l:longint;procedure cf(x:int64);  begin    fillchar(d,sizeof(d),0);    while (x<>0) do begin inc(d[x mod 10]); x:=x div 10; end;  end;procedure make(x,y,k:int64);  var i,j:longint;  begin    cf(x);    for i:=0 to y-1 do      begin        inc(c[i],e[k]);        for j:=0 to 9 do c[j]:=c[j]+d[j]*e[k];        for j:=0 to 9 do c[j]:=c[j]+(k-1)*e[k-1];      end;  end;begin  e[1]:=1;  for j:=2 to 15 do e[j]:=e[j-1]*10;  read(a,b);  dec(a);  i:=1; p:=1;  while (a>=1) do    begin      make(a div 10,a mod 10,i);      inc(c[a mod 10]);      a:=a div 10; p:=p*10; inc(i);      dec(c[0],p div 10);    end;  f:=c;  fillchar(c,sizeof(c),0);  i:=1; p:=1;  while (b>=1) do    begin      make(b div 10,b mod 10,i);      inc(c[b mod 10]);      b:=b div 10; p:=p*10; inc(i);      dec(c[0],p div 10);    end;  for j:=0 to 8 do write(c[j]-f[j],' ');  write(c[9]-f[9]);end.