bzoj 1026 DP，数位统计

2013-11-20 08:11

原题传送门http://www.lydsy.com/JudgeOnline/problem.php?id=1026

首先我们用w[i,j]表示最高位是第i位，且是j的windy数个数

那么我们可以写出转移

w[i,j]:=w[i-1,k] abs(k-j)>=2

首先对于询问的a,b区间，我们可以转化成求1-a的个数，1-b的个数，然后差就行了

那么我们要求的就是1-x之间的windy数

假设x一共有len位，那么我们求len-1位以下的windy数可以直接用w算出来，直接

累加w[i,j]就行了

那么我们对于len位的数，只需要改变枚举的上界就好了，相当于固定第i位，求第i+1位的

情况，然后特判下如果abs(c[i]-c[i+1])<2（c[i]为x的第i位）直接退出就行了

 /**************************************************************
     Problem:
     User: BLADEVIL
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 //By BLADEVIL
 var
     w                   :array[..,-..] of longint;
     c                   :array[..] of longint;
     a, b                :longint;

 function ask(x:longint):longint;
 var
     len, Sum, i, j      :longint;

 begin
     if x= then exit();
     len:=;
     while x> do
     begin
         inc(len);
         c[len]:=x mod ;
         x:=x div ;
     end;
     ask:=;
     for i:= to len- do
         for j:= to  do
             ask:=ask+w[i,j];

     for j:= to c[len]- do
         ask:=ask+w[len,j];

     for i:=len- downto  do
     begin
         for j:= to c[i]- do
             if abs(c[i+]-j)>= then ask:=ask+w[i,j];
         if abs(c[i+]-c[i])< then break;
     end;
 end;

 procedure main;
 var
     i, j, k             :longint;

 begin
     for i:= to  do w[,i]:=;
     for i:= to  do
         for j:= to  do
             for k:= to  do
                 if abs(j-k)>= then w[i,j]:=w[i,j]+w[i-,k];
     readln(a,b);
     writeln(ask(b+)-ask(a));
 end;

 begin
     main;
 end.