bzoj1236

其实这道题目不难，主要要求我们有一个清晰地思路
首先可以按位数讨论，这里我把1~9单独讨论了
因为除了1位数，每个位数开头的数的开头数字1前面都是-号
然后考虑位数的奇偶性
当位数为奇数的时候比较简单
举个例子
-1+0-0
+1-0+1
-1+0-2
+1-0+3
不难发现，奇位数从开头的数开始，相邻两个数数字和都是1,这就非常好统计了
如果位数为偶数，则这位数的一个数排完之后，下一个数的开头符号还是上一个数的开头符号
就是-1+0 -1+1 -1+2……这个意思
于是我们就要数位dp来处理

 var f:array[..,..] of int64;
     d,c:array[..] of int64;
     ans,x,n:int64;
     s,i,m,j,k,t:longint;

 begin
   readln(n);
   if n<= then
   begin
     for i:= to n do
       if i mod = then ans:=ans+i else ans:=ans-i;
     writeln(ans);
     halt;
   end;
   ans:=;
   m:=;
   x:=n;
   while x<> do
   begin
     inc(m);
     d[m]:=x mod ;
     x:=x div ;
   end;
   c[]:=;
   for i:= to m do
     c[i]:=c[i-]*;
   for i:= to  do
     f[,i]:=i;
   for i:= to m do  //开头为j，是i位数的每个数的数字和（注意这里默认每个数的开头都是+)
     for j:= to  do
     begin
       f[i,j]:=c[i]*j;
       for k:= to  do
         f[i,j]:=f[i,j]-f[i-,k];
     end;
   for i:= to m- do  //位数小于n的数字和
   begin
     if i mod = then
     begin
       for j:= to  do
         ans:=ans-f[i,j];
     end
     else ans:=ans+*c[i] div ;
   end;
   if m mod = then  //n位数为奇数可以直接计算
   begin
     ans:=ans+(n-c[m]+) div ;
     if n mod = then
     begin
       for i:=m downto  do
         if i mod = then ans:=ans+d[i]
         else ans:=ans-d[i];
     end;
   end
   else begin
     k:=-;
     for i:=m downto  do  //n位数为偶数逐位统计
     begin
       if i=m then s:= else s:=;
       for j:=s to d[i]- do
         ans:=ans+k*f[i,j];
       ans:=ans+k*(n-d[i]*c[i]+)*d[i];  //这里要好好琢磨
       n:=n-d[i]*c[i];
       k:=k*(-);
     end;
   end;
   writeln(ans);
 end.